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.
chu vi hình tròn đó là:
1.5 x 2 x 3.14 =9.42 (cm)
diện tích hình tròn đó là:
1.52 x 3.14 =7.065(cm2)
program Iza_dang_cap;
uses crt;
var n,i: integer;
A:array[1..100] of integer;
begin
clrscr;
writeln('nhap cac phan tu cua day');
for i:=1 to n do write(A[i]);
writeln('cac phan tu cua day so la: ' )
for i:=1 to n do write(A[i],' ');
readln
end.
p/s : bn nhập chương trình zô pascal xem cóa sai j ko nhá~~
a)
input: a
output: a có chia hết cho 3 ko?
b)
B1: nhập a
B2: nếu a mod 3=0 thì a chia hết cho 3, nếu a mod 3 <>0 thì a ko chia hết cho 3
B3: thông báo a chia hết cho 3 ko
B4: kết thúc.
c)
var
a:integer;
begin
write('nhập a=');
readln(a);
if a mod 3=0 then wirteln(a,' chia hết cho 3')
else
writeln(a,' ko chia hết cho 3');
readln
end.
var n:integer;
begin
assign(input,'CHIA3.inp');reset(input);
assign(output,'CHIA3.out');rewrite(output);
read(n);
if n mod 3 = 0 then write('n chia het cho 3')
else write('n khong chi het cho 3');
end.
program chia;
uses crt;
var n,i:integer;
s:real;
begin
clrscr;
s:=0;
for i:=2 to 50 do s:=s+1/i;
writeln('Tong la ',s:1:2);
readln;
end.
a) xác định
input: x
output: x là chẵn hay lẻ
b)
B1: nhập x
B2: Nếu x chia hết cho 2 thì x là số chẵn, không chia hết thì là số chẵn
B3: trả lời số x là số chẵn hay là số lẻ
B4: kết thúc thuật toán.
c)
var
x:integer;
begin
write("nhập x=");
readln(x);
if x mod 2=0 then writeln(x," là số chẵn")
else
writeln(x," là số lẻ");
readln;
end.
program XinChao;
uses crt;
(* Day la chuong trinh chinh *)
Begin
writeln('Xin chao cac ban!');
readkey;
End.
Trương Lan Anh phần cuối là readln nhé