Var ar:array[1..s] of integer; n,m,i:integer; begin writeln('N'); readln(n); writeln('M'); readln(m); writeln('Array:'); for i:=1 to s do readln(ar[i]); writeln('First array:'); for i:=1 to s do begin write(ar[i]:4); if ar[i] div n<>0 then ar[i]:=ar[i]+m; end; writeln; writeln('Final array:'); for i:=1 to s do write(ar[i]:4); end.
Пример ввода: 3 3 1 2 3 4 5 Пример вывода: First array: 1 2 3 4 5 Final array: 1 2 6 7 8
1. Написать программу, которая будет считывать с клавиатуры числа до тех пор, пока не будет введен 0. После ввода нуля программа должна выдать на экран количество чисел, которое было введено, без учета нуля.
2. Написать программу, которая будет считывать с клавиатуры числа до тех пор, пока не будет введен 0. После ввода нуля программа должна выдать на экран количество троек, которое было введено.
3. Написать программу, которая будет считывать с клавиатуры числа до тех пор, пока не будет введен 0. После ввода нуля программа должна выдать на экран количество четных и нечетных чисел, которое было введено, без учета нуля.
4. Написать программу, которая будет считывать с клавиатуры числа до тех пор, пока не будет введен 0. После ввода нуля программа должна выдать на экран сумму отдельно четных и отдельно нечетных чисел, которые были введены, без учета нуля.
5. Написать программу, которая будет просить пользователя ввести с клавиатуры любое число. После этого, программа просит вводить числа до тех пор, пока сумма чисел, которые введены, не будет больше или равна первому числу пользователя. Пример работы программы приведен ниже.
6. Написать программу, которая будет просить пользователя ввести число с клавиатуры и выводить на экран все числа, на которые делится это число. Пример работы программы приведен ниже. В программе должен быть использован цикл while и не более одного раза команда if.
Const
s=5;
Var
ar:array[1..s] of integer;
n,m,i:integer;
begin
writeln('N');
readln(n);
writeln('M');
readln(m);
writeln('Array:');
for i:=1 to s do
readln(ar[i]);
writeln('First array:');
for i:=1 to s do
begin
write(ar[i]:4);
if ar[i] div n<>0 then ar[i]:=ar[i]+m;
end;
writeln;
writeln('Final array:');
for i:=1 to s do
write(ar[i]:4);
end.
Пример ввода:
3
3
1
2
3
4
5
Пример вывода:
First array:
1 2 3 4 5
Final array:
1 2 6 7 8
//Блок-схема во вложении
НА PYTHON
1. Написать программу, которая будет считывать с клавиатуры числа до тех пор, пока не будет введен 0. После ввода нуля программа должна выдать на экран количество чисел, которое было введено, без учета нуля.
2. Написать программу, которая будет считывать с клавиатуры числа до тех пор, пока не будет введен 0. После ввода нуля программа должна выдать на экран количество троек, которое было введено.
3. Написать программу, которая будет считывать с клавиатуры числа до тех пор, пока не будет введен 0. После ввода нуля программа должна выдать на экран количество четных и нечетных чисел, которое было введено, без учета нуля.
4. Написать программу, которая будет считывать с клавиатуры числа до тех пор, пока не будет введен 0. После ввода нуля программа должна выдать на экран сумму отдельно четных и отдельно нечетных чисел, которые были введены, без учета нуля.
5. Написать программу, которая будет просить пользователя ввести с клавиатуры любое число. После этого, программа просит вводить числа до тех пор, пока сумма чисел, которые введены, не будет больше или равна первому числу пользователя. Пример работы программы приведен ниже.
6. Написать программу, которая будет просить пользователя ввести число с клавиатуры и выводить на экран все числа, на которые делится это число. Пример работы программы приведен ниже. В программе должен быть использован цикл while и не более одного раза команда if.