Những câu hỏi liên quan
Minh Lệ
Xem chi tiết
Mai Trung Hải Phong
13 tháng 9 2023 lúc 19:52

Câu lệnh

loading...

Kết quả như sau

loading...
Nguyễn Thuỳ Linh
Xem chi tiết
Nguyễn Lê Phước Thịnh
4 tháng 5 2021 lúc 13:57

uses crt;

var n,x:integer;

begin

clrscr;

write('Nhap n='); readln(n);

writeln('n=',n);

x:=n;

if x mod 2=0 then writeln(x,' la so chan')

else writeln(x,' la so le');

readln;

end.

nguyễn văn kiên
Xem chi tiết
Lan Anh Vũ Hoàng
Xem chi tiết
Nguyễn Lê Phước Thịnh
16 tháng 11 2021 lúc 23:55

a: int m;

double q;

Nguyễn Cảnh Hùng
Xem chi tiết
Đỗ Ngọc Trinh
21 tháng 6 2018 lúc 16:35

Nguyen Nhi
Xem chi tiết
Nguyễn Lê Phước Thịnh
25 tháng 2 2021 lúc 13:37

Câu 1:

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

Câu 2: 

uses crt;

var a:array[1..10]of integer;

i:integer;

begin

clrscr;

for i:=1 to 10 do 

  begin

write('A[',i,']='); readln(a[i]);

end;

for i:=1 to 10 do 

 write(a[i]:4);

readln;

end.

Câu 3: 

uses crt;

var a:array[1..15]of integer;

i,n,t:integer;

begin

clrscr;

repeat

write('Nhap n='); readln(n);

until (0<n) and (n<=15);

for i:=1 to n do 

begin

repeat

write('A[',i,']='); readln(a[i]);

until a[i]<=100;

end;

writeln('Mang da nhap la: ');

for i:=1 to n do 

  write(a[i]:4);

writeln;

t:=0;

for i:=1 to n do

if a[i] mod 3=0 then t:=t+a[i];

writeln('Tong cac phan tu chia het cho 3 la: ',t);

writeln('Cac so chan o vi tri le trong day la: ');

for i:=1 to n do 

  if (a[i] mod 2=0) and (i mod 2=1) then write(a[i]:4);

readln;

end.

Đào Quyền
Xem chi tiết
lemaikhanguyen210@gmail....
Xem chi tiết
Nguyễn Lê Phước Thịnh
10 tháng 5 2022 lúc 23:16

Câu 15:

Input: x,y

Output: x+y

Mô tả thuật toán(Cái này mình không vẽ sơ đồ khối trên này được, bạn tự vẽ nha)

Bước 1: Nhập x,y

Bước 2: Xuất x+y

Bước 3: Kết thúc

Trâm Vương
Xem chi tiết
Nguyễn Lê Phước Thịnh
22 tháng 2 2022 lúc 21:36

uses crt;

var k,x,y:integer;

begin

clrscr;

readln(k);

x:=k mod 5;

y:=k div 5;

writeln(k,'/5=',x,' du ',y);

readln;

end.

Trần Mai Thảo
Xem chi tiết
Minh Lệ
22 tháng 3 2023 lúc 23:40

a/ var s: string;

b/ readln(s);

c/ write(length(s));

d/ for i:=1 to length(s) do if s[i] in ['0'..'9'] then write(s[i]);