uses crt;

var i,t:integer;

begin

clrscr;

i:=1;

t:=0;

repeat

  t:=t+i;

inc(i);

until t>=100;

writeln(t);

readln;

end.

giúp em với

Câu 3:

program cauba;

int chieudai, chieurong, chuvi, dientich :real;

begin

write('Chieu dai la: '); Readln(chieudai);

write('Chieu rong la: '); Readln(chieurong);

chuvi = (chieudai + chieu rong)*2;

dientich= chieudai*chieurong;

writeln('Chu vi la: ',chuvi);

writeln('Dien tich la: ',dientich);

end.

Caua1:

program caumot;

begin

writeln('lop 8A chao ban!');

end.

Câu 2:

program cauhai;

int a,b,c :real;

begin

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

write('b='); readln(b);

c= a+b;

write('Tong hai so a b la:',c);

end.

Câu 1: 

uses crt;

var s,i:integer;

begin

clrscr;

s:=0;

for i:=1 to 10 do 

  s:=s+i;

writeln('Tong cua 10 so tu nhien dau tien la: ',s);

readln;

end.

Câu 2: 

uses crt;

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

i,n,dem:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

dem:=0;

for i:=1 to n do

if a[i]>0 then inc(dem);

writeln('So luong phan tu duong la: ',dem);

readln;

end.

Câu 3: 

uses crt;

var i,j:integer;

begin

clrscr;

for i:=1 to 9 do 

  begin

      writeln('Bang nhan ',i,' la: ');

for j:=1 to 10 do 

  writeln(i,'*',j,'=',i*j);

delay(200);

end;

readln;

end.

1:

#include <bits/stdc++.h>

using namespace std;

long long dem,i,n,x;

int main()

{

cin>>n;

dem=0;

for (i=1; i<=n; i++)

{

cin>>x;

if (x%2==0) dem++;

}

cout<<dem;

return 0;

}

Câu 2: 

#include <bits/stdc++.h>

using namespace std;

long long x,n,i,t;

int main()

{

cin>>n;

t=0;

for (i=1; i<=n; i++)

{

cin>>x;

if (x%3==0) t+=x;

}

cout<<t;

return 0;

}

Em ghi đề chính xác lại

đề:viết chương trình tính tổng các số tự nhiên đầu tiên cho đến khi tổng đó bằng 10 thì dừng lại. vậy đúng chưa

Đáp án là 10 rồi còn gì em

Thì tính kiểu gì ạ🥶🥶🥶

chưa hiểu vấn đề@@@
xin input và output của bài đc không

Sửa đề: Đến khi tích đó lớn hơn 100 thì dừng lại

uses crt;

var s,i:integer;

begin

clrscr;

s:=1;

i:=1;

while s<=100 do

begin

i:=i+1;

s:=s*i;

end;

writeln(s);

readln;

end.

Câu 8.

program im_14424;

uses crt;

var S: byte;

i: byte;

begin

clrscr;

S:=0;

for i:=1 to 20 do

S:=S+i;

writeln('Tong cua 20 so tu nhien dau tien la: ,S);

readln

end.
Câu 9.

j:=2 → Gán j = 2.

for i:=1 to 5 do → lặp lại 5 lần

j:=j+2 → 

Lần 1: 4

Lần 2: 6

Lần 3: 10

Lần 4: 12

Lần 5: 14

 Câu 1:

uses crt;
var sum,i:longint;
begin
clrscr;sum:=0;
for i:=1 to 20 do sum:=sum+i;
write(sum);
readln
end.

Câu 2:

i = 1; j = 4i = 2; j = 6i = 3; j = 8i = 4; j = 10i = 5; j = 12