Cấu trúc chung của ddianj chỉ Email ? Sau đó giải thích
K
Khách
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.
4 tháng 6 2021
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.
NT
0
NH
0
LD
1
YN
24 tháng 12 2020
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 .
24 tháng 3 2021
b1nhay chuot hoac hang can chen
b2 chon lenh insert trongnhomcells cua dai lenh home
2H
0
tên người dùng@nhà cung cấp email điện tử.com