Жорсткий диск,відео карта,процесор,оперативна память,блок живлення.
1)
var a,b,c,d:real;
begin
writeln('Введите 3 числа');
readln(a,b,c);
d := a + b + c;
writeln('сумма чисел равна',d);
end.
ну или
var a,b,c,d:real;
begin
writeln('Введите первое число');
readln(a);
writeln('Введите второе число');
readln(b);
writeln('Введите третее число');
readln(c);
d := a + b + c;
writeln('сумма чисел равна',d);
end.
2)
var a,b,c,d:real;
begin
writeln('Введите первое число');
readln(a);
writeln('Введите второе число');
readln(b);
writeln('Введите третее число');
readln(c);
d := a * b * c;
writeln('произведение чисел равна',d);
end.
3)
var a,b,c:real;
begin
writeln('Введите первое число');
readln(a);
writeln('Введите второе число');
readln(b);
c := a : b;
writeln('деление двух чисел равна',c);
end.
В третем могу ошибится
Uses crt;const n=10;var D,B,C: array [1..n] of integer; i,k: integer;
begin for i:=1 to n do begin D[i]:=random(100); writeln(D[i]); end; for i:=1 to n do begin if D[i]<10 then B[i]:=D[i]; if D[i]>10 then C[i]:=D[i]; if D[i]=10 then inc(k); end; writeln('Кол-во элементов, равных 10 = ',k);<span>end.</span>
Насколько я знаю ответ будет: Г, А, В, Б
Я согласна с предыдущим ответом, но также должно быть название каждого слайда, например: введение, основной текст, конец, в введении пишешь определение, того о чем будешь говорить, основной текст раздели на части и тоже назови, в конце все термины на эту тему, источники и спасибо за внимание напиши.