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.
program tim_tuoi;
uses crt;
var i,j,ngaysinh,tuoi, uoctuoi,k:integer;
begin
clrscr;
for i:=1 to 9 do
for j:=0 to 9 do
for k:=0 to 9 do
begin
uoctuoi:=sqr(i)+sqr(j)+sqr(k);
tuoi:=i*100+j*10+k;for ngaysinh:=1 to 31 do
if tuoi =uoctuoi+ngaysinh then write('tuoi cua cu la: ',tuoi);
end;
readln;
end.
Input 20 số chẵn đầu tiên
Output tính tổng S
Thuật toán
Bước 1 : Nhập 40 số ( vì 20 số chẵn => từ 1 đến n phải 40 số mới đủ 20 số chẵn )
Bước 2 : gán s:=0
Bước 3 : cho biến i chạy từ 1 đến 40 nếu imod2 = 0 => S := S + i
Bước 4 : in ra kết quả và kết thúc thuật toán
Chương trình
Program Hotboy ;
Uses crt ;
Var i,s : integer ;
Begin
Clrscr ;
For i:= 1 to 40 do
Begin
If ( i mod 2=0 ) then s;=s+i
Write('ting tong',S)
End ;
Readln
End .
program phuong_trinh;
uses crt;
var a,b:real;
begin
writeln('chuong trinh giai phuong trinh ã+b=0');
write('nhap he so a ='); readln(a);
write('nhap he so b ='); readln(b);
If (a<>0) then writeln('phuong trinh',a:10:2,'x+',b:10:2,'=0',' co nghiem x=;'-b/a:10:2);
If (a=0) and (b=0) then writeln('phuong trinh co vo so nghiem');
If (a=0) and (b<>0) then writeln('phuong trinh vo nghiem');
readln
end.
program sosanh;
uses crt;
var a,b,c : real;
begin
readln(a,b);
c:= a-b;
if c>0 then writeln(' a lon hon b');
if c<0 then writeln('a nho hon b');
if c=0 then writeln('a bang b');
readln;
end.
Dốt tin nên chỉ làm dc vậy, đúng thì 5 sao nhé