program giai;

uses crt;

var A: real;

x,n: integer;

begin

clrscr;

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

write('Nhap x = '); read(x);

A:=1/(9*x+n);

write('Ket qua phep tinh A = ',A);

readln

end.

Câu 1:

uses crt;

var k,i:integer;

begin

clrscr;

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

for i:=1 to k do

write(i:4);

readln;

end.

Câu 2:

uses crt;

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

i,n,t:integer;

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

t:=0;

for i:=1 to n do

t:=t+a[i];

writeln('Tong cac gia tri cua day la: ',t);

readln;

end.

* Thuật toán:

Bước 1: Nhập n và dãy số a₁, a₂…, a_n.

Bước 2: SUM ← 0; i ← 0.

Bước 3: Nếu a_i > 0 thì SUM ← SUM + a_i, ngược lại đến bước 4.

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

Bước 5: Nếu i \(\le\) n thì quay lại bước 3.

Bước 6: Thông báo giá trị SUM. Kết thúc thuật toán.

1GP cho bạn nào trả lời được câu này

C1:

Var

a:integer;b: integer;

Begin

a:=0;

Writeln('Hay nhap nam can tinh:');

readln(b);

a:=b-2003;

if a>9 and a<20 then

writeln('Nam dang o trong tuoi vi thanh nien.')

else

writeln('Nam khong o trong tuoi vi thanh nien.');

readln;

end.

1.

program c1;

uses crt;

const namnay=2019;

namsinh=2003;

var tuoi:integer;

begin

clrscr;

tuoi:=namnay-namsinh;

if 10<=tuoi and 19>=tuoi then write('Nam o tuoi vi thanh nien ') else write('Nam khong o tuoi vi thanh nien');

readln

end.

Mk chỉ bt lm trên Scratch thui

VAR A,n:real;

begin

write('nhap gia tri n:');readln(n);

A:=1/(1*3)+1/(2*4)+1/(3*5)+.........+1/n(n+2);

writeln('gia tri cua A la:,'A);

readln;

end.

Bai1: a) \(sqr\left(5-1\right)\) mod 3

b) \(sqr\left(10\right)+\left(25-4\right)\)/4

Bai2:Xác định bải toán

Input : Chiều dài b và chiều rộng a.

Output: Diện tích và chu vi thửa ruộng.

Thuật toán

B1:Nhập a,b

B2:CV<-- (a+b)*2

Và S<--a*b

B3: -Thông báo lên màn hình diện tích là s

-Và chu vi là cv

fsa

k

i

var a,b,c: real;
begin
clrscr;
write('Nhap 3 so a, b, c: ');readln(a,b,c);
if (a+b>c)and(a+c>b)and(b+c>a) then
begin
write('3 canh vua nhap la tam giac');
if (a=b)or(b=c)or(a=c) then
begin
if(a=b)and(b=c) then
write(' deu')
else
write(' can');
end;
if (a*a=b*b+c*c)or(b*b=a*a+c*c)or(c*c=a*a+b*b) then
write(' vuong');
end
else
write('3 canh vua nhap ko phai la tam giac');
readln;
end.

thiếu dấu chấm phẩy ở chỗ end

Câu 1:
Var a:Integer;
Begin
Writeln('Nhap a: '); Readln(a);
If (a mod 2)=0 then writeln(a,'chia het cho 2') else (a,' khong chia het cho 2');
Readln;
End.

Câu 2:
Var S,a,b,c:Integer;
Begin
Writeln('Nhap a: '); readln(a);
Writeln('Nhap b: '); readln(b);
Writeln('Nhap c: '); readln(c);
S:=a+b+c;
Writeln('Tong cua ba so la: ',S);
Readln;
End.

Câu 3:
Var a,b,c:Integer;
Begin
Writeln('Nhap a: '); Readln(a);
Writeln('Nhap b: '); readln(b);
Writeln('Nhap c: '); readln(c);
If (a mod 2)=0 then writeln(a,' la so chan') else (a,' la so le');
If (b mod 2)=0 then writeln(b,' la so chan') else (b,' la so le');
If (c mod 2)=0 then writeln(c,' la so chan') else (c,' la so le');
Readln;
End.

what dờ phắc