Program z_3;
var a,b,n,s, i: integer;
Begin
repeat
writeln ('Введите Ваше число');
readln (n);
if (n < 10) or (n > 99) then i:= 0
else i:= 1;
until i>0;
a:= n mod 100 div 10;
b:= n mod 10;
s:= (a+b)+sqr (a+b);
if s <> n then writeln ('Число не соотвествует условию')
else writeln ('Число ',s, ' соответствует условию');
End.
А где само фото ????чтобы сделать задание
1024(10) = 10000000000(2)
<span>368(8) - ошибка в записи числа</span>
1038(10) = 2016(8)
304(8) = 11000100(2)
<em>// PascalABC.NET 3.3, сборка 1547 от 07.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger('Количество спичек:');
var (n2,n4):=(n div 2, n div 4);
Writeln('Максимальная площадь: ',n2=2*n4?n4*n4:n4*(n4+1))
end.
<u>Пример</u>
Количество спичек:1 4
Максимальная площадь: 12
1100............вот как то так