Đ/Á: 24

i:=1;S=1;

i:=2;S=2;

i:=3;S=6;

i:=4;S=24;

S = 24

8

S = 8

Đề không rõ ràng.

Bạn phải cho biết số lễ trong tháng

Ví dụ tháng 1 có 3 ngày lễ, tháng 2 có 5 ngày lễ , ....v.v.

Bạn phải cho biết số giờ làm việc của 1 người làm việc đó trong 1 ngày nữa chứ?. Không lẽ làm việc 24 giờ trong 1 ngày trong vòng 1 tháng?

uses crt;
var gio,giothem:integer;
tien:longint;
tienbh,tiencl: real;
const dong = 20000;
begin
clrscr;
write('So gio nguoi do lam viec: ');readln(gio);
write('So gio lam them ca: ');readln(giothem);
if giothem > 0 then
begin
tien:= giothem * (dong * 3);
tien:= tien + (gio * dong);
end
else if giothem = 0 then tien:= gio * dong;
writeln('Tien cong lao dong trong 1 thang: ',tien);
tienbh:= (tien / 100) * 10.5;
writeln('So tien phai nop bao hiem: ',tienbh:0:2);
tiencl:= tien - tienbh;
write('So tien con lai: ',tiencl:0:1);
readln

end.

Bài 1:

uses crt;
var n,i,t:integer;
begin
clrscr;
write('n='); readln(n);
t:=0;
i:=1;
while i<=n do
begin
t:=t+i;
i:=i+1;
end;
writeln('tong cac so nguyen tu 1 toi ',n,' la: ',t);
readln;
end.

Bài 2:

uses crt;
var n,t:longint;
begin
clrscr;
t:=0;
repeat
write('n='); readln(n);
t:=t+n;
until n=0;
writeln('tong cac so nguyen nhap tu ban phim la: ',t);
readln;
end.

Bài 3:

uses crt;
var d,i,t,n,x:longint;
a:array[1..100]of longint;
st:string;
begin
clrscr;
write('n='); readln(n);
str(n,st);
d:=length(st);
t:=0;
for i:=1 to d do
begin
val(st[i],a[i],x);
t:=t+a[i];
end;
writeln('tong cac chu so cua ',n,' la: ',t);
readln;
end.

Câu 1:

uses crt;
var n,i:integer;
tong:longint;
begin
clrscr;
write('Nhap n: ');readln(n);
i:= 0;
while i < n do
begin
i:= i + 1;
tong:= tong + i;
end;
write('Tong cac so tu 1 den ',n,'la: ',tong);
readln
end.

Câu 2:

uses crt;
var i,a:integer;
tong:longint;
begin
clrscr;
a:= 1; i:= 1; tong:= 0;
while a <> 0 do
begin
write('Nhap phan tu thu ',i,': ');
readln(a);
i:= i + 1;
tong:= tong + a;
end;
write('Tong cac so = ',tong);
readln
end.

Câu 3:

uses crt;
var n,luu,tong: integer;
begin
clrscr;
write('Nhap so N: ');readln(n);
luu:= n; tong:= n mod 10;
while (n div 10 > 0) do
begin
n:= n div 10;
tong:= tong + (n mod 10);
end;
write('Tong cac chu so cua so ',luu,' la: ',tong);
readln
end.

Câu 1:

program an_danh;
uses crt;
var i,e,tong:integer;
begin
clrscr;
write('Nhap E: ');readln(e);
i:= 0; tong:= 0;
while tong <= e do
begin
i:= i + 1;
tong:= tong + i;
end;
write('Gia tri nho nhat: ',i);
readln
end.

Bài 1:

uses crt;
var s,i,e:longint;
begin
clrscr;
write('e='); readln(e);
i:=1;
s:=1;
while s<=e do
begin
inc(i);
s:=s+i;
end;
writeln('gia tri nguyen duong nho nhat de tong S=1+2+3+...>',e,' la: ',i);
readln;
end.

Bài 2:

uses crt;
var n,i,d,kt:integer;
st:string;
begin
clrscr;
write('n='); readln(n);
str(n,st);
d:=length(st);
kt:=0;
for i:=1 to d do
if st[i]<>st[d-i+1] then kt:=1;
if kt=0 then writeln(n,' la so doi xung')
else writeln(n,' khong la so doi xung');
readln;
end.

Báo lỗi - Vì thiếu dấu đóng ngoặc.

Nếu lỗi do bạn thì kết quả là :

((10+5)*(10+5)-(2+12))/3=2.36666666666666666661E+0001

Báo lỗi

Dư dấu ' trước số 20

40

40

Bài 1:

uses crt;

var n,i:integer;

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

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

for i:=1 to n do

if a[i] mod 2=0 then write(a[i]:4);

readln;

end.

Bài 2:

uses crt;

var n,i:integer;

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

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

for i:=1 to n do

if a[i] mod 2=1 then write(a[i]:4);

readln;

end.

Bài 3:

uses crt;

var n,i:integer;

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

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

for i:=1 to n do

if a[i]<0 then write(a[i]:4);

readln;

end.

Bài 4:

uses crt;

var n,i:integer;

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

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

for i:=1 to n do

if a[i]>0 then write(a[i]:4);

readln;

end.

Tổng A gì bạn?

a)

Input: Các số hạng

Output: Tổng A

b)

B1: Nhập số cac số(n)

B2: i:= 1 tong:= 0

B3: Nhập số thứ i (a), Tong:= Tong + a, Tăng i thêm 1 dơn vị

B4: Nếu i > n thì chuyển dến B5

nguoc lại thì chuyển dến B3

B5: Thông báo tổng rồi kết thúc

c)

program an_danh;

uses crt;

var a,i,n:integer;

tong:longint;

begin

clrscr;

write('Nhap so phan tu: ');readln(n);

tong:= 0;

for i:= 1 to n do

begin

write('So thu ',i,': ');readln(a);

tong:= tong + a;

end;

write('Tong la: ',tong);

readln

end.