Var s,k:integer;
begin
s:=0;
for k:=3 to 10 do
s:=s+13;
write(s);
<span>end.
Ответ 104</span>
Function Compare(a,b:integer):char;
begin
if a<b then Compare:='<'
else if a=b then Compare:='='
else Compare:='>'
end;
var
x,y:integer;
begin
Write('Введите два числа через пробел: ');
Readln(x,y);
Writeln(x,Compare(x,y),y)
end.
Var x,y:real;
begin
write('x = '); readln(x);
if x>12
then y:=2*x+15
else if x=12 then y:=54.4 else y:=-7.8;
writeln('y = ',y);
end.
Пример:
x = 10
y = -7.8
Пример в Excel 2003
Ярлычки листов соответствуют № задания