viết chương trình từ 1-->50
Những câu hỏi liên quan
Viết chương trình tính tích từ 1 đến 50
Program HOC24;
var i: byte;
t: longint;
begin
t:=1;
for i:=1 to 50 do t:=t*i;
write('Ket qua la: ',t);
readln
end.
Đúng 1
Bình luận (0)
Tham khảo:
Program bai_tap;
Uses crt;
Var i:integer;
Begin
clrscr;
For i:=1 to 50 writeln(i);
readln;
End.
Đúng 0
Bình luận (0)
16 tháng 9 2021 lúc 18:55
Viết chương trình tính tổng các số từ 1 đến 50
Program baitap;
Uses crt;
Var S,i : integer;
BEGIN
clrscr;
S:= 0;
For i:=1 to 50 do
S:= S+i;
Writeln (' Vay tong cua cac so tu 1 den 50 la ', S);
Readln
END.
Uses crt;
Var S,i : integer;
BEGIN
clrscr;
S:= 0;
For i:=1 to 50 do
S:= S+i;
Writeln (' Vay tong cua cac so tu 1 den 50 la ', S);
Readln
END.
Đúng 2
Bình luận (1)
Viết chương trình tính và in ra tổng từ 1 đến 50
program TinhTong;
var
Tong, i: integer;
begin
Tong := 0;
for i := 1 to 50 do
begin
Tong := Tong + i;
end;
writeln('Tong tu 1 den 50 la: ', Tong);
readln;
end.
Đúng 2
Bình luận (0)
Câu 1: Viết chương trình tính và in ra tổng từ 1 đến 50.
1.Em hãy viết chương trình tính tích các số từ 5 đến 50.
giúp mik với
#include <bits/stdc++.h>
using namespace std;
long long i,s;
int main()
{
s=1;
for (i=5; i<=50; i++) s=s*i;
cout<<s;
return 0;
}
Đúng 1
Bình luận (1)
Var s,i:longint;
Begin
s:=1;
For i:=5 to 50 do
s:=s*i;
Write('Tich la ',s);
Readln;
End.
Đúng 0
Bình luận (0)
Bài 1: Viết chương trình tính tổng các số chẵn từ 10 đến 50?
Bài 2: Viết chương trình giải bài toán sau: Tính tổng A ( n là số tự nhiên được nhập từ bàn phím)
A= 1.3 + 2.4 + 3.5 +...+ n(n+2).
Giúp mình với nhanh nhanh nha.
Bài 1:
uses crt;
var i,s:integer;
begin
clrscr;
s:=0;
for i:=10 to 50 do
if i mod 2=0 then s:=s+i;
writeln(s);
readln;
end.
Bài 2:
uses crt;
var a,i,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
a:=0;
for i:=1 to n do
a:=a+i*(i+2);
writeln(a);
readln;
end.
Đúng 2
Bình luận (0)
Viết chương trình Pascal, đặt tên chương trình là tên của con sau đó tải file ảnh lên đây. Chương trình thực hiện công việc sau: Khai báo 1 mảng A chứa tối đa 50 số nguyên, nhập n từ bàn phím, nhập vào mảng A gồm n số, viết mảng A ra màn hình (tất cả các phần tử trên cùng 1 dòng?
uses crt;
var a:array[1..50]of integer;
i,n:integer;
begin
clrscr;
readln(n);
for i:=1 to n do
readln(a[i]);
for i:=1 to n do write(a[i]:4);
readln;
end.
Đúng 0
Bình luận (0)
Viết chương trình Pascal, đặt tên chương trình là tên của con sau đó tải file ảnh lên đây. Chương trình thực hiện công việc sau: Khai báo 1 mảng A chứa tối đa 50 số nguyên, nhập n từ bàn phím, nhập vào mảng A gồm n số, viết mảng A ra màn hình (tất cả các phần tử trên cùng 1 dòng?
uses crt;
var a:array[1..50]of integer;
i,n:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
for i:=1 to n do write(a[i]:4);
readln;
end.
Đúng 0
Bình luận (0)
Viết chương trình nhập từ bàn phím 1 mảng 1 chiều N (N<=50). In ra màn hình các số lẻ trong mảng
Viết chương trình hiển thị ra màn hình các số từ 9 đến 50
Xem chi tiết
Program bai_tap;
Uses crt;
Var i:integer;
Begin
clrscr;
For i:=9 to 50 writeln(i);
readln;
End.
Đúng 1
Bình luận (0)
Program bai_tap;
Uses crt;
Var i:integer;
Begin
clrscr;
For i:=9 to 50 writeln(i);
readln;
End.
Đúng 1
Bình luận (0)
uses crt;
var i:integer;
begin
clrscr;
for i:=9 to 50 do
write(i:4);
readln;
end.
Đúng 0
Bình luận (0)