Основным носителем в Египте был-папирус.
var a:array [1..20] of integer;
i,k:integer;
BEGIN
k:=301;
for i:=1 to 20 do begin
while (k mod 17<>0) and (k mod 13<>0) do
k:=k+1;
a[i]:=k;
k:=k+1;
end;
for i:=1 to 20 do
write(a[i],' ');
end.
На Питоне. Решение на скрине. Ввод - вывод стандартный.
Var a,b,c:integer;
Begin
Write('Введите три целых числа: ');ReadLn(a,b,c);
if b>a then a:=b;
if c>a then a:=c;
WriteLn(a);
End.
1.Подключить внешний носитель информации с инсталлятором ОС к ЭВМ, на которую будет производиться установка.
2.Запустить вычислительную машину.
3.Произвести загрузку с носителя информации описанном в п.1.
4.Отформатировать файловую систему ПЗУ, на который будет производиться установка.
5.Следовать инструкциям на экране.
Все.