Đề 12 : Viết chương trình tính tổng của 100 số tự nhiên đầu tiên .
Help me mai mình kiểm tra thực hành rồi giúp mình với nha everybody -.- !!
Đề 11 : Viết chương trình tính tích của 10 số tự nhiên đầu tiên
Help me mai mình kiểm tra hực hành rồi giúp mình với everybody -.- !!!
Đề 15 : Viết chương trình tìm phần nguyên và phần dư của tổng hai số a,b nhập từ bàn phím cho 7 .
Help me mai mình kiểm tra thực hành rồi giúp mình với nha everybody -.- !!!
var a,b:byte;
begin
write('nhap a,b:');readln(a,b);
write('a+b chia 7 duoc ',(a+b) div 7,' va du ',(a+b) mod 7);
readln;
end.
Sử dụng vòng lặp với số lần biết trước (for...to...đo) viết chương trình tính tổng của N số tự nhiên đầu tiên T=1+2+3+...N.N là số nguyên được nhập từ bàn phím Giúp mình với mai mình nộp bài rồi🥺🥺
uses crt;
var i,n,t:integer;
begin
clrscr;
readln(n);
t:=0;
for i:=1 to n do t:=t+i;
writeln(t);
readln;
end.
Đề 5 : Viết chương trình nhập vào mội số nguyên a,b và in ra màn hình số lớn nhất
Help me mai mình kiểm tra thực hành rồi giúp mình với nha everybody -.- !!!
program lonnhat;
uses crt;
var a,b: integer;
BEGIN
clrscr;
write ('nhap a = '); readln (a);
write ('nhap b = '); readln (b);
if a > b then write (a,' la so lon nhat')
else write (b,' la so lon nhat');
READLN
END.
đề 1:viết chương trình tính tổng của 10 số tự nhiên đầu tiên
đề 2:viết chương trình tính tổng L 5 số tự nhiên đầu tiên(với L đc nhập từ bàn phím)
giúp mk nhé!!!!!!
tự làm là nhanh nhất
ai đòng ý xin 1 ý kiến
đề 1:viết chương trình tính tổng của 10 số tự nhiên đầu tiên
đề 2:viết chương trình tính tổng L 5 số tự nhiên đầu tiên(với L đc nhập từ bàn phím)
giúp mk nhé!!!!!!
1.
program tinhtong;
uses crt;
var s,i,n:integer;
begin
s:=0;
for i:=1 to 10 do s:=s+1;
writeln ('tong cua s=',s);
readln
end.
2.
program tinhtong;
uses crt;
var i,L,s:integer;
begin
write('nhap gia tri L='); readln(L);
s:=0;
for i:=1 to L do s:=s+1;
writeln('tong cua s=',s);
readln
end.
Đề 13 : Viết chương trình tính trung bình cộng của n ( n<=10 )n nhập từ bàn phím
Help me mai mình kiểm tra thực hành rồi giúp mình với nha everybody -.- !!
program andanh;
uses crt;
var i,n,tong,a:integer;
begin
clrscr; tong:= 0;
repeat
write('Nhap so cac so: ');readln(n);
if n > 10 then
begin
write('Nhap so be hon 10. Hay nhap lai');
delay(2000);
clrscr;
end;
until n <= 10;
for i:= 1 to n do
begin
write('Nhap so thu ',i,': ');
readln(a);
tong:= tong + a;
end;
write('Trung binh cong cua cac so tren la: ',tong/n:2:2);
readln
end.
Viết chương trình tính tổng n số tự nhiên đầu tiên. Kiểm tra tổng được tính là số chẵn hay số lẻ?
Program HOC24;
var n,i: integer;
t: longint;
Begin
write('Nhap N: '); readln(N);
t:=0;
for i:=1 to n do t:=t+i;
if t mod 2=0 then write('Tong la so chan') else write('Tong la so le');
readln
end.
n = int(input('nhap n'))
s = 0
for i in range(0,n):
s = s+i
print('tong cua day tu 0 den '+n+'la'+s)
if s%2 == 0:
print('s la so chan')
else:
print('s la so le')
Đề 3 : Viết chương trình nhập vào một số nguyên a và kiểm tra xem a có là bội của 2,3,5 hay không và đưa ra màn hình thông báo có hay không ?
Help me mai mình kiểm tra thực hành rồi giúp mình với nha everybody -.- !!!