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.

14 tháng 2 2021

tên người dùng@nhà cung cấp email điện tử.com

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.

16 tháng 1

con cach de hon khong

 

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