Những câu hỏi liên quan
3U
Xem chi tiết
NT
30 tháng 12 2022 lúc 0:12

uses crt;

var n,i:integer;

begin

clrscr;

readln(n);

for i:=1 to n do

if i mod 2=0 then write(i:4);

readln;

end.

Bình luận (1)
NN
Xem chi tiết
VH
20 tháng 3 2022 lúc 9:28

tham khảo

 

uses crt;

var i,t:integer;

begin

clrscr;

t:=0;

for i:=1 to 10 do

t:=t+i;

writeln('Tong cac so tu nhien tu 1 toi 10 la: ',t);

readln;

end.

Bình luận (0)
H24
20 tháng 3 2022 lúc 9:28

refer

uses crt;

var i: integer;

begin

clrscr;

for i:= 1 to 10 do

begin writeln ( ' O ' ) end;

readln

end.

Bình luận (0)
MD
Xem chi tiết
HH
Xem chi tiết
H24
25 tháng 12 2018 lúc 9:11

ban co face ko

mk gui cho

Bình luận (0)
H24
25 tháng 12 2018 lúc 9:37

Ngữ văn bài QUA ĐÈO NGANG, TLV bài biểu cảm về món quà mà em yêu thích.

Bình luận (0)
NL
Xem chi tiết
PG
22 tháng 4 2023 lúc 20:43

program TongSoChanTrongDay;

var

      n, i, tong: integer;

      a: array[1..100] of integer;

begin

      tong := 0;

      write('Nhap so phan tu cua day: ');

      readln(n);

      for i := 1 to n do

      begin

            write('Nhap phan tu thu ', i, ': ');

            readln(a[i]);

            if a[i] mod 2 = 0 then

                  tong := tong + a[i];

      end;

      writeln('Tong cac phan tu chan trong day la: ', tong);

      readln;

end.

Bình luận (0)
DN
3 tháng 5 2024 lúc 11:13

fgfgfgfgfgfggfgfgfggggfgf

Bình luận (0)
N8
Xem chi tiết
NT
24 tháng 1 2022 lúc 9:44

#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;

}

Bình luận (1)
KL
24 tháng 1 2022 lúc 17:49

Var s,i:longint;

Begin

s:=1;

For i:=5 to 50 do

s:=s*i;

Write('Tich la ',s);

Readln;

End.

Bình luận (0)
DN
Xem chi tiết
H24
Xem chi tiết
NN
Xem chi tiết
H24
20 tháng 3 2022 lúc 9:25

refer

uses crt;

var i: integer;

begin

clrscr;

for i:= 1 to 10 do

begin writeln ( ' O ' ) end;

readln

end.

Bình luận (2)
VH
20 tháng 3 2022 lúc 9:26

tham khảo

uses crt;

var i: integer;

begin

clrscr;

for i:= 1 to 10 do

begin writeln ( ' O ' ) end;

readln

end.

Bình luận (4)
VA
20 tháng 3 2022 lúc 9:27

Tham khảo

refer

uses crt;

var i: integer;

begin

clrscr;

for i:= 1 to 10 do

begin writeln ( ' O ' ) end;

readln

end.

Bình luận (0)