1.
var
Hero:string;
begin
writeln('Введите имя вашего любимого киногероя: ');
readln(Hero);
writeln('Ваш любимый киногерой: ', Hero, '!');
end.
2.
k:=3; m:=k+1; → m:=3+1; // m = 4;
k:=m*m+5; → k:= 4*4+5; //k = 21;
k:= k-10; → k:= 21-10; // k = 11;
Нам надо было найти значение, хранящееся в переменной m: m = 4.
Безопасный Интернет просто надо по стрелкам определять ....
var
x,days,y:integer;
begin
readln(x)
y=0;
days=0;
while y<x do
begin
days=days+1;
y=y+4-3;
end;
writeln('количество дней :' , days);
END.
var
x, y, f: real;
begin
read(x, y);
f := sqr(3 * (x + 5)) - 6 * y + 5;
writeln(f)
end.
<span>Весь абзац может иметь отступы слева и справа, которые отмеряются от границ полей страницы. 1 или 2</span>