Tin học viết chương trình nhập 10 số nguyên từ bàn phím in ra màn hình các số lẻ 13/07/2021 By Alaia viết chương trình nhập 10 số nguyên từ bàn phím in ra màn hình các số lẻ
$#BenokM1155A$ Trả lời: Program bai1; uses crt; var tong : array [1..100] of integer; S, i, n : integer; Begin. clrscr; readln (n); for i:=1 to n do. readln (tong [i]); for i:=1 to n do. S:= S+tong[i]; Trả lời
uses crt; var n ,i ,tong:integer; begin clrscr; write(‘nhap so nguyen n:’); readln(n); for i:=1 to n do if i mod 2<>0 then tong:=tong+i; write(‘tong cac so le nho hon hoac bang n la:’,tong); readln; end. * có thể thay “if i mod 2<>0” bằng “if i mod 2=1”, cách nào cũng đúng nhé bạn xin 5 sao Trả lời
$#BenokM1155A$
Trả lời:
Program bai1;
uses crt;
var tong : array [1..100] of integer;
S, i, n : integer;
Begin. clrscr;
readln (n);
for i:=1 to n do. readln (tong [i]);
for i:=1 to n do.
S:= S+tong[i];
uses crt;
var n
,i
,tong:integer;
begin clrscr;
write(‘nhap so nguyen n:’);
readln(n); for i:=1 to n do if i mod 2<>0 then tong:=tong+i; write(‘tong cac so le nho hon hoac bang n la:’,tong);
readln;
end. * có thể thay “if i mod 2<>0” bằng “if i mod 2=1”, cách nào cũng đúng nhé bạn
xin 5 sao