V=1024*1024*7*24=176160768(бит)=22020096(байт)=21504(Кб)=21(Мб)
Var
n:integer;
Begin
Write('Введите число ');
Readln(n);
if sqr(n) = (4*(sqr(n div 10)*(n div 10)+sqr(n mod 10)*(n mod 10))) then write('Ответ положительный') else write('Ответ отрицательный');
<span>End.</span>
Var
p, q: real;
begin
writeln('Введите исходные данные:');
write('Цена одного килограмма яблок (руб.) -> ');
readln(p);
write('Вес яблок (кг) -> ');
readln(q);
writeln('Стоимость покупки: ', (p * q):6:2, ' руб.');
end.
Ответ: 5
Выполняем построчно:
1)
a = 30
2)
a = 30
b = 6
3)
a = 8
b = 6
4)
Заходим в первый цикл
a = 8
b = 6
c = 8 - 30 + 27 = 5