Появление компьютеров совершило в нашей жизни революцию. Они изменили наш подход к работе, учёбе, досугу и другим сторонам жизни. Сегодня компьютеры используются во всех сферах жизни, например, в медицине применяется компьютерная томография, на транспорте – управление движением, в науке – при проведении расчётов и моделировании процессов. Создание компьютеров привело к возникновению Интернета, который представляет всемирную компьютерную сеть, позволяющую быстро найти требуемую информацию и связаться с другими людьми. Я тоже пользуюсь компьютером и Интернетом. В памяти моего компьютера размещены энциклопедии, словари и другие справочные материалы, которые я использую при подготовке домашних заданий. На моем компьютере также установлены игры развивать реакцию, тренировать память, мышление, мультфильмы, художественные и документальные фильмы. Недавно я посмотрел фильм «Дубровский» , скоро мы будем изучать эту повесть А. С. Пушкина на уроке литературы. Кроме плюсов компьютер и Интернет имеют и свои минусы. В Интернете можно найти реферат на любую тему и по любому предмету вместо того, чтобы самому его написать. Также в Интернете есть множество информации, не представляющей никакой ценности. Слишком долгое пребывание перед монитором компьютера портит зрение, осанку, вызывает утомление. Длительное и регулярное увлечение компьютерными играми может привести к возникновению игромании, что вызывает агрессию и отрицательно сказывается на здоровье. Компьютер – важное изобретение, и надо научиться правильно его использовать. Следует получать только ту информацию, которая необходима для самостоятельного выполнения заданий, и не перекладывать на Интернет написание сочинений и рефератов. Необходимо ограничивать компьютерное время, отведенное на игры и развлечения.
var
a,i,n,a1:integer;
begin
a1:=30000;
read(n);
for i:=1 to n do begin
read(a);
if (a<a1) and (a div 10 <10) and (a div 10 >1)and (a mod 2 = 0) then a1:=a;
end;
writeln(a1);
end.
var
b,x,c:real;
i,n,a:integer;
begin
x:=0;
b:=0;
read(n);
for i:=1 to n do begin
read(a);
if (a mod 7 = 0) or (a mod 3 = 0) then b:=b+a;
if (a mod 7 =0) or (a mod 3 = 0) then x:=x+1;
end;
c:=b/x;
writeln(c);
end.
var
a,b,x,i,n:integer;
begin
x:=0;
read(n);
for i:=1 to n do begin
read(a);
if (a mod 10 <>1) and (a mod 2 = 1) then x:=x+1;
end;
writeln(x);
end.
Думаю исходный код выглядел так:
n = int(input())
i = 1
while i < n :
print (i)
i = i + 1
И тогда результатом будет напечатать все натуральные числа от 1 до n-1. Каждое на новой строке. В аттачменте пример
Объяснение: