Question

Написать программы: 1) сумма цифр двузначного числа, 2) сумма цифр трехзначного числа, 3) площадь квадрата

Answer 1

сумма цифр двузначного числа:

Program qq;

var x,y,c: real;

b,a: integer;

begin

for a:=10 to 99 do

begin

cls;

x:=a div 10;

y:=a mod 10;

if a=10 then

a :=(x+y)+(sqr(x+y));

Writeln ('числа ',a)

end;

end.

сумма цифр трехзначного числа:

var a,a12,a1,a2,a3,s: integer;

begin

readln(a);

a1:=a div 100;

a12:=a mod 100;

a2:=a12 div 10;

a3:=a12 mod 10;

s:=a1+a2+a3;

writeln(s);

end.

площадь квадрата:

var

a, b, s: real;

begin

write('Введите первую сторону: ');

readln(a);

write('Введите вторую сторону: ');

readln(b);

s:=a*b;

writeln('Площадь равна: ',s:5:2);

end.