Номер 3
c=b-a
c
номер 4
ввод a,b
z
Var
x:real;
Begin
Write('x = '); Readln(x);
if (x > 5) then
Write('y = ', x*x + 1)
else
Write('y = ', 3 - x);
end.
Пример:
x = 4.5
y = -1.5
~~~~~~~
x = 6
y = 37
Ответ:
6.07.1923(дата), 353,6(дробь), 123(число)-числовая информация
рисунок кораблик- графическая информация
Объяснение:
Var a,b,c,d,e:integer;
begin
d:=1;
e:=0;
writeln('введите количество учеников');
readln(a);
for b:=1 to a do begin
writeln('введите количество правильных ответов для ',d,' ученика' );
readln(c);
while (c>10) or (c<0) do begin
writeln('вы ввели неверное число, попробуйте снова');
readln(c);
end;
if c = 10 then e:=e+1;
d:=d+1;
end;
if (e>=1) then writeln('yes ')
else writeln('no');
end.