Phần mềm học tập

Bước 1: s←0; i←1;

Bước 2: s←s+i;

Bước 3: i←i+1;

Bước 4: Nếu i<=50 thì quay lại bước 2

Bước 5: Xuất s

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

n

S = 1+2+...+50

   = ( 1+50 ) \(\times\) 25

   = 1275

a) Tổng của 50 số tự nhiên đầu tiên

Xác định bài toán: 

-Input: 50 số tự nhiên đầu tiên

-Output: Tổng của 50 số đó

Mô tả thuật toán:

-Bước 1: s←0; i←1;

-Bước 2: s←s+i;

-Bước 3: i←i+1;

-Bước 4: Nếu i<=n thì quay lại bước 2

-Bước 5: Xuất s

-Bước 6: Kết thúc

b) Kiểm tra a là số chẵn hay số lẻ

Xác định bài toán

-Input: Số a

-Output: Kiểm tra xem a là số chẵn hay số lẻ

Mô tả thuật toán

-Bước 1: Nhập a

-Bước 2: Nếu a chia hết cho 2 thì a là số chẵn

không thì a là số lẻ

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

uses crt;

var a:integer;

begin

clrscr;

repeat

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

until a>0;

if (a mod 3=0) and (a mod 5=0) then writeln(a,' chia het cho 3 va 5')

else writeln(a,' khong chia het cho 3 va 5');

readln;

end.

Program HOC24;

var a: integer;

begin

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

if (a mod 3=0) and (a mod 5=0) then write(a,' chia het cho 3 va 5') else write(a,' khong chia het cho 3 va 5');

readln

end.

uses crt;

var a:integer;

begin

clrscr;

repeat

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

until a>0;

if (a mod 3=0) and (a mod 5=0) then writeln(a,' chia het cho 3 va chia het cho 5')

else writeln(a,' khong chia het cho 3 va 5');

readln;

end.

bằng 4 bạn ơi.

theo mình thì bạn nên thêm câu lệnh readln; vào phần trước chữ end. vì làm vậy chương trình sẽ dừng lại để bạn quan sát cho đến khi nhấn phím enter nhé

Bạn ko thêm câu lệnh readln; vào cuối bài à

Nếu có thêm rồi mà vẫn lỗi thì chụp màn hình qua

Tự mà lên ✱

uses crt;

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

n,i:integer;

begin

clrscr;

write('Nhap so hoc sinh:'); readln(n);

for i:=1 to n do

begin

write('Nhap diem mon Tin cua hoc sinh thu ',i,'='); readln(a[i]);

end;

for i:=1 to n do

writeln('Diem cua ban thu ',i,'=',a[i]:4:2);

readln;

end.