1101011,1₂-100000₂-1+1000₂-1+0,01₂
Дурацкий местный шрифт не позволяет записать числа поразрядно в столбик, поэтому решение на картинке.
Ответ 1010001,01₂
var a,b,c,d:integer;
begin
writeln('Напиши дату основания Санкт-Питербурга(день месяц и год)');
writeln('день');
read(a);
writeln('месяц');
read(b);
writeln('год');
read(c);
if (a=27) and (b=5) and (c=1703) then
writeln('Молодец всё правильно')
else
writeln('Ты где то допустил ошибку');
end.
Ответ смотри в таблице Excel в файле
Тело цикла выполнится три раза.
a=2 p=2
a=4 p=8
a=8 p=64