Những câu hỏi liên quan
39 _ 7G1_ Trương Uyển Uy...
Xem chi tiết
Nguyễn Lê Phước Thịnh
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.

Nguyễn Ngọc
Xem chi tiết
Vũ Quang Huy
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.

NGUYỄN♥️LINH.._.
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.

minh đạt
Xem chi tiết
Hoàng Thị Hoài
Xem chi tiết
NắngNứng 範城
25 tháng 12 2018 lúc 9:11

ban co face ko

mk gui cho

Sakura2k6
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.

Nhân lê
Xem chi tiết
Phía sau một cô gái
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.

Đỗ Thành Nhân
3 tháng 5 lúc 11:13

fgfgfgfgfgfggfgfgfggggfgf

Nguyễn Tiến Đạt 8/1
Xem chi tiết
Nguyễn Lê Phước Thịnh
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;

}

Kiều Vũ Linh
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.

Duyên Nè
Xem chi tiết
T.Huy
Xem chi tiết
Nguyễn Ngọc
Xem chi tiết
NGUYỄN♥️LINH.._.
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.

Vũ Quang Huy
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.

Valt Aoi
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.