2 - зрения. 90% информации мы получаем визуально, если не ошибаюсь)
<u>// PascalABC.NET 3.3, сборка 1627 от 27.01.2018</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var s:=Arr('первое', 'второе','третье','четвертое','пятое');
var p,r:real;
var c:char;
Write('Введите первое число: '); Readln(r);
for var i:=0 to 3 do begin
Write('Выберите ',s[i], ' действие (a) сложить, b) вычесть,');
Write('c) умножить, d) разделить): '); Readln(c);
Write('Введите ',s[i+1],' число: '); Readln(p);
case c of
'a':r+=p;
'b':r-=p;
'c':r*=p;
'd':r/=p;
end;
Writeln('Результат: ',r)
end
end.
1. <span>Мегамир-большой мир, мир огромных велечин
2. Макромир - большие велечины, но меньше мега
3. Микромир - маленькие велечины
4. Это какой-то объект, который состоит из элементов, между которыми есть взаимная связь.
5.
6. Структура системы - это связь между подсистемами и элементами системы
</span> 7.
1. <span>Целостность
</span> 2. <span>Сложность
</span> 3. <span>Организованность</span>
Program vozrast;
var n: integer;
begin
writeln ('Введите возраст');
readln (n);
if (n=1) or (n mod 10 = 1) then writeln ('Мне ',n,' год')
else if (n>1) and (n<5) or (n mod 10 = 2) or (n mod 10 = 3) or (n mod 10 = 4) then writeln ('Мне ',n,' года')
else writeln ('Мне ',n, ' лет');
end.
Ответ 3) A[5,1]
1 2 3 4 5
6 7 8 9
10 11 12
13 14
<span>15</span>
