2) Решил бы еще, но замучаюсь всё это в пэйнте рисовать:)
<span> ЭВМ пятого поколения ставятся совершенно другие задачи, нежели при
разработки всех прежних ЭВМ. Если перед разработчиками ЭВМ с I по IV
поколений стояли такие задачи, как увеличение производительности в области
числовых расчётов, достижение большой ёмкости памяти, то основной задачей
разработчиков ЭВМ V поколения является создание искусственного интеллекта
машины (возможность делать логические выводы из представленных фактов),
развитие "интеллектуализации" компьютеров - устранения барьера между
человеком и компьютером. Компьютер теперь используется и дома, это
компьютерные игры, прослушивание высококачественной музыки, просмотр фильмов.
Уже сейчас компьютеры способны воспринимать информацию с рукописного или
печатного текста, с бланков, с человеческого голоса, узнавать пользователя по
голосу, осуществлять перевод с одного языка на другой. Это позволяет общаться
с компьютерами всем пользователям, даже тем, кто не имеет специальных знаний
в этой области.</span>
Y=73div8+4=9+4=13
y=13mod5+73=3+73=76
y=76+73*2=146+76=222
Ответ:222
var a,b:integer;
s,p,k:integer; //s сумма, p произведение, k кол-во
m:string; //Интервал
Begin
while (a = b) or (a > b) do Begin
writeln('Введите числа A,B (a < b; a != b)');
write('A = '); readln(a);
write('B = '); readln(b);
End;
p := 1; //Если p = 0 --> все последующие произведения = 0
for var i := a to b do Begin
inc(k);
p := p * i;
s := s + i;
m := m + i;
if(i <> b) then m := m + ',';
End;
writeln;
writeln('Интервал = [',m,']');
writeln('Сумма чисел (a..b) = ', s);
writeln('Произведение чисел (a..b) = ', p);
write('Кол-во чисел (a..b) = ', k);
End.