bài 1

if <điều kiện> then <câu lệnh>;

if <điều kiện> then <câu lệnh1> else <câu lênh 2>;

for <biến đềm>:=<giá trị đầu> to <giá trị cuối> do <câu lệnh>;

while <điều kiện> do <câu lệnh>;

bài 2

a)xuất giá tri biến c;

b) xuất chử c ra màn hình

c)xuất tong 5+7 ra màn hình tức 12;

d) xuất 5+7 ra màn hình;

e)Khai báo biến i và k thuộc kiểu số thực;

bài 3

C[1]+C[2]=150 0 0 11

bài 4 Nhờ ban khác nhé

câu 1 a) S=5

b)Doan chuong trinh thuc hien 5 vong lap

câu 2:

program tinhtong;

uses crt;

var B:array [1..20] of integer;

le,tong,i:integer;

begin

writeln ('nhap gia tri cua mang B');

for i:=1 to 20 do

readln (B[i]);

for i:=1 to 20 do

begin

if A[i] mod 2=1 then le:=le+A[i];

if A[i]>0 then tong:=tong+A[i];

end;

writeln ('tong cac so duong la',tong);

writeln ('tong cac so le la',le);

readln

end.

nho stick nha

may tinh da thuc hien 10 vong lap.

vong lap 1:i=1;T=1;

vong lap 2:i=2;T=3;

vong lap 3:i=3;T=6;

vong lap 4:i=4; T=10;

vong lap 5:i=5;T=15;

vong lap 6:i=6;T=21;

vong lap 7:i=7;T=28;

vong lap 8:i=8;T=36;

vong lap 9:i=9;T=45;

vong lap 10:i=10;T=55;

góc C=30 độ cần cách giải ko?

program nhap;

uses crt;

var A:array [1..1000] of integer;

n,i,dem:integer;

begin

writeln ('nhap vao so phan tu cua mang');readln (n);

for i:=1 to n do readln (A[i]);

write ('cac so chia het cho 3 va 9 la: ');

for i:=1 to n do

if (A[i] mod 3 =0) and A[i] mod 9=0) then

begin

write (A[i]);

dem:=dem+1;

end;

writeln ('co tat ca ',dem,' so chia het cho 3 va 9');

readln end.