K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

1 tháng 7 2019

1) Sai --> Program Chuong_trinh;

2) Đúng

3) Đúng

4) Đúng

5) Sai --> s:=s+1;

6) Sai -->i:=1+1;

7) Sai --> End;

8 và 9) Sai --> Writeln(s); và Readln;

10) Sai --> End.

Đúng thì like cho mình nha :)))

30 tháng 8 2019
Câu lệnh Đúng Sai Sửa lại
Program Chuong trinh x program chuongtrinh;
var i,s : real; x
const n:=10; x
begin x
s:=s+1 x s:=s+1;
i:=i+1 x

i:=i+1;

end; x

end;

writeln(s) x writeln(s);
readln x
end; x end.

2 tháng 11 2021

Program bai tap 1; -> Program Bai_tap_1;

Uses CRT -> Uses CRT;

Var a;=integen; -> Var a: integer;

b;=real; -> b: real;

Constc;=3; -> Const c=3;

Begin

a:=200;

b:=a/c;

Readln;

End -> End.

2 tháng 11 2021

Program bai tap 1; -> Program Bai_tap_1; Uses CRT -> Uses CRT; Var a;=integen; -> Var a: integer; b;=real; -> b: real; Constc;=3; -> Const c=3; Begin a:=200; b:=a/c;

16 tháng 3 2023

Program Tong__nghich__dao;

Var

n,i:real;

S:Integer;

Begin

Write('Nhap n=');Readln(n);

S:=0;

For i:=1 to n do S:=S+1/i;

Write('Tong can tim la: ', S:6:2);

Readln;

End.

16 tháng 3 2023

:v