Var mark:integer;
begin
readln(mark);
if mark=5 then writeln('молодец, я тобой горжусь!')
else if mark=4 then writeln('я рад, надеюсь, будет «5»')
else if mark=3 then writeln('не ленись и всё получится')
else writeln('ты, наверное, не ходишь на уроки');
end.
Пример:
4
<span>я рад, надеюсь, будет «5»</span>
В первом ответ г)
во втором ответ б)
=D$2+$B4...........................................
Const
n=15; { длина массива }
type
tm=array[1..n] of integer;
var
i:byte;
a,b,c:tm;
begin
randomize;
for i:=1 to n do
begin
a[i]:=random(101-50);
b[i]:=random(101-50);
c[i]:=a[i]*b[i];
Write(a[i],' ')
end;
Writeln;
for i:=1 to n do
begin
Write(b[i],' ')
end;
Writeln;
for i:=1 to n do
begin
Write(c[i],' ')
end;
Writeln
end.