1) Без понятия, звучит как плохая постановка вопроса. Возможно это проходили именно вы и тебе будет ответить намного проще, нужен контекст.
Я так понимаю это "энергонезависимость"
2) Монитор
3) Жесткий диск
Program CrazyCoder;
var a,b,c: real;
begin
write('Введите число "A": ');
readln(a);
writeln('Введите число "B": ');
readln(b);
c:=a-b;
write('Сдача: ', c);
<span>end.</span>
Ответ:
import random as r
s=[r.randint(1,100) for i in range(10)]
print(s)
m1=max(s)
s.remove(m1)
m2=max(s)
print(m1,m2)
Объяснение:
Program p;
var i: integer;
quest:array [1..2] of string;
ans:array [1..2] of string;
answ:array [1..2] of string;
begin
quest[1]:='20*2=';
quest[2]:='3*5=';
ans[1]:='40';
ans[2]:='15';
for i:=1 to 2 do begin
writeln ('Вопрос номер ', i);
writeln (quest[i]);
write ('Ваш ответ - ');
readln (answ[i]);
while answ[i]<>ans[i] do
begin
writeln ('Ответ неверный, попробуйте снова');
readln(answ[i]);
end;
writeln ('Ответ верный');
writeln;
end;
writeln ('Congrats');
end.
Пример:
Вопрос номер 1
20*2=
Ваш ответ - 40
Ответ верный
Вопрос номер 2
3*5=
Ваш ответ - 10
Ответ неверный, попробуйте снова
14
Ответ неверный, попробуйте снова
15
Ответ верный
Congrats
Var
i,min,max:integer;
a:array[1..70]of integer;
begin
for i:=1 to 70 do
begin
a[i]:=random(100);
write(a[i],' ');
if i=1 then min:=a[i]
else if a[i]<min then min:=a[i];
if a[i]>max then max:=a[i];
end;
writeln;
writeln('Ответ: ',max-min);
<span>end.</span>