<span>{$R+,S+,Q+}</span> uses SysUtils; <span>const R=1000;</span><span>type Mas= array [0..R] of integer;</span>var a: Mas; en,n: integer; x,y,z,q,w: char;<span>function push(n: integer): string;</span>begin<span> a[en]:=n;</span><span> en:=en+1;</span> push:='ok';end;<span>function pop(): integer;</span>begin<span> en:=en-1;</span><span> pop:=a[en];</span><span> a[en]:=0;</span>end;<span>function back(): integer;</span>begin<span> back:=a[en-1];</span>end;<span>function size(): integer;</span>begin size:=en;end;<span>function clear(): string;</span>begin<span> en:=0;</span> clear:='ok';end;<span>function exit(): string;</span>begin exit:='bye';end;begin<span> en:=0;</span> repeat<span> read(x);</span> if x='p' then begin<span> read(y);</span> if y='u' then begin<span> read(z,q,w);</span><span> readln(n);</span><span> writeln(push(n))</span> end else begin<span> readln(z);</span><span> writeln(pop());</span> end; end; if x='b' then begin<span> readln(y,z,q);</span><span> writeln(back());</span> end; if x='s' then begin<span> readln(y,z,q);</span><span> writeln(size());</span> end; if x='c' then begin<span> readln(y,z,q,w);</span><span> writeln(clear());</span> end; if x='e' then begin<span> readln(y,z,q);</span><span> writeln(exit());</span> end; until x='e';<span>end.</span>
Var a,b,c,sa: real;
begin
writeln ('Введите 3 числа:');
readln (a,b,c);
sa:=(a+b+c)/3;
writeln;
writeln ('Среднее арифметическое = ',sa)
end.
-----------------
Введите 3 числа:
28.48 53.11 674.1
Среднее арифметическое = 251.896666666667
Var a: array [1..10] of integer;
i:integer;
begin
for i:=1 to 10 do read(a[i]);
for i:=1 to 10 do if a[i] mod 2<>0 then write(a[i],' ');
end.
Var a = [0, ...] - Множество, состоящее из чисел.
console.log(a) - выводит "a" в консоль.
var f1 = 0 - объявление переменной целого типа и инициализация её нулем.
for(i=0;i<a.length-1;i++) - цикл от нуля до a.length - 1 с шагом 1.
{
if(a[i] >=a[i+1]) { - если "a" iтое больше либо равно "a" iтому + 1 тогда
f1=1; - присваивание переменной f1 числа 1.
break; - остановка цикла.
}
}
if(f1 == 1) { - если f1 равно 1 тогда
for(i=0;i<a.length-1;i+=4) { - цикл от нуля до a.length - 1 с шагом 4.
a[i] *= 2; - значение "a" iтое умножается на 2. (все содержимое a[i])
}
}
ЭВМ - электронно-вычислительная машина, значит, поколение ЭВМ - это поколение электронно-вычислительной техники
Смена поколений (с 1 по 4) вызвала тем, что машины становились меньше по размерам, проще в использовании, использовались другие компоненты для их сборки, усовершенствовались машины - менялось поколение
Первое поколение - ламповые машины 50-х годов. Работали на электровакуумных лампах, которых было понатыкано тысячами. Порой такие машины занимали целые сотни квадратных метров площади.
Второе поколение - в 60-х годах базой ЭВМ стали транзисторы, а машины стали компактнее, менее энергоёмкими и более надёжными. Возросло быстродействие и объём внутренней памяти
Третье поколение - во второй половине 60-х американская фирма приступила к выпуску машин IBM-360 на интегральных схемах
Четвертое поколение - появилось в 1971 году с изобретением микропроцессора. Построены на основе больших интегральных схем
Всю эту информацию можно найти в интернете, надеюсь, что на вопрос ответил
