Паскалевский вариант от меня.
Program Programma;
Uses crt;
var n, p: integer;
BEGIN clrscr;
write('n = ');
readln(n);
writeln;
if (n > 0) and (n <=100) then
begin
p:=sqr(n);
write('Ответ: p = ', p);
end
else
write('Число ненатуральное или превосходит 1000');
readln;
END.
Потому что антивирус может быть закончился или это не такие большие вирусы вред компьютеру не причинят )))
A:=16
b:=12-16/4 = 8
a:=16+8*3 = 40
Ответ: a=8; b=40
Pascal ABC:
var a, b: Integer;
begin
readln(a);
readln(b);
b:=b-1;
for a:=a+1 to b do
writeln(a);
end.
Пример:
Вводим 1 и 5. Получаем:
2
3
4