program raf105;
var
a, s: real;
function square(a: real): real;
begin
square:= a*a;
end;
begin
write('Введите сторону квадрата: ');
readln(a);
s:= square(a);
writeln('Его площадь равна ',s);
end.
2.program raf105;
var
num10, num2, count_1: integer;
begin
write('Введите десятичное число: ');
readln(num10);
repeat
if (num10 mod 2 = 1) then
count_1:= count_1 + 1;
num10:= num10 div 2;
if num10 = 1 then
inc(count_1)
until num10 <= 1;
writeln('В двоичной записи числа ',count_1,' ед.');
end.
PascalABC 3.4.2
Паскаль:
Var i,n : Integer;
Begin
n:=0;
For i:=100 to 999 do
If i div 100 + i div 10 mod 10 + i mod 10 = 12 then
Begin
Inc(n);
Writeln(i);
end;
Writeln('Всего: ',n);
end.