Program Exp_1;
Var
a:array[1..5] of integer;
i:integer;
Begin
for i:=1 to 5 do
Begin
write('Vvedite ',i,'-yi element massiva ');
Readln(a[i]);
End;
Write('Ishodny massiv: ');
for i:=1 to 5 do
write(a[i],' ');
writeln;
writeln('Poluchenny massiv: ');
for i:=1 to 5 do
write(a[i]+5,' ');
Readln;
End.
Program Exp_2;
Var
a:array[1..10] of integer;
i:integer;
Begin
for i:=1 to 10 do
Begin
write('Vvedite ',i,'-yi element massiva ');
Readln(a[i]);
End;
Write('Ishodny massiv: ');
for i:=1 to 10 do
write(a[i],' ');
writeln;
writeln('Poluchenny massiv: ');
for i:=1 to 5 do
write(a[i]+5,' ');
for i:=6 to 10 do
write(a[i]*5,' ');
Readln;
End.
Program Exp_3;
Const
n=10;
Var
a:array[1..n] of integer;
i:integer;
Begin
for i:=1 to n do
begin
a[i]:=5;
write(a[i]:3);
read;
end;
End.
Считываем первое число(n), чтобы определить, до какого момента должен продолжаться цикл. Создаем переменную sum, чтобы хранить найденное количество чисел, удовлетворяющих условию. Запускаем цикл, считываем число, если последняя цифра - 4 (проверяем при получения остатка от деления на 10) и число делится на 6 (проверяем при получения остатка от деления на 6), то добавляем к в переменную sum 1.
Объяснение:
n = int(input())
sum = 0
for i in range(0, n):
current = int(input())
if current % 10 == 4 and current % 6 == 0:
sum += 1
print(sum)
Объяснение:
1.курица,так как она не летает.2.береза,так как это не хвойное дерево.3.георгин,так как этот цветок растёт именно в домашних условиях. 4.тетрадь,так как это бумага, а не мебель.5.егорова,так как это фамилия,а не имя.6.птичка,так как не из растений.7.байкал,потому что это озеро,а все остальное горы.8.кошка,потому что она не хищная. И т.д