Ủa đây là toán mà❔

đèn giao thông;thời khóa biểu;.......

^chắc

đèn giao thông,đọc báo,xem ti vi,đánh nhau,học bài,....................

Thông tin là tất cả những gì đem lại sự hiểu biết về thế giới xung quanh (sự vật, sự kiện…) và về chính con người. Hoạt động thông tin bao gồm việc tiếp nhận, xử lí, lưu trữ và truyền (trao đổi) thông tin.

Thông tin là tất cả những gì đem lại sự hiểu biết (sự vật, sự việc,...) và về chính con người. Thông tin mang lại sự hiểu biết cho con người

Program hoc24;

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

i,n,d,d1: integer;

begin

write('Nhap N : '); readln(n);

d:=0; d1:=0;

for i:=1 to n do

begin

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

if a[i] mod 2=0 then d:=d+1 else d1:=d1+1;

end;

Writeln('Co ',d,' so chan trong day');

write('Co ',d1,' so le trong day');

readln

end.

Có thể hướng dẫn từng bước cho em hiểu được không ạ

Var x:longint;

Begin

Write('Nhap vao so can xet ');readln(x);

If (x mod 2 = 0) and (x mod 3 = 0) and (x mod 5 = 0) and (x mod 9 = 0) then

write(x,' chia het cho ca 2, 3, 5 va 9')

Else write(x,' khong chia het cho ca 2, 3, 5 va 9');

Readln;

End.

Phần

write(x,' chia het cho ca 2, 3, 5 va 9')

Else write(x,' khong chia het cho ca 2, 3, 5 va 9');

bạn sai rồi nhé. Dùng dấu , trong lệnh write như vậy sẽ sai.

Sửa:

write(x,' chia het cho ca 2; 3; 5 va 9')

Else write(x,' khong chia het cho ca 2; 3; 5 va 9');

uses crt;

var a,i,n:integer;

s:real;

begin

clrscr;

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

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

s:=0;

for i:=0 to n do

s:=s+1/(a+i);

writeln(s:4:2);

readln;

end.

Cảm ơn bạn . Bạn làm đúng rồi

Uk