Письменный опрос по теме «язык программирования паскаль. основные конструкции языка» в-2 1. программа на языке паскаль начинается со слов: 2. переменные, используемые в программе описываются в разделе: 3. для создания имен переменных можно использовать: 4. пример правильно составленных имен
переменных (5 вариантов): 5. операторы языка паскаль отделяются друг от друга: 6. признаком конца программы написанной на языке паскаль является: 7. напишите синтаксически правильную запись выражения hello_html_m64523c4a.gif 8. какие встроенные функции языка паскаль обозначают словами sqr, abs,
div : 9. какие значения примут переменные a, b после выполнения серии команд: a: =-5; b: =5; a: =a+b; b: =a-b; a: =a-b; 10. что будет отображено на экране после выполнения серии команд (писать из расчета 1-клетка=1-символ): a: =20; b: =0; c: =4; writeln(‘с новым ’,a,b); write(b,c);
writeln(‘ ! ’); 11. запишите последовательность команд, в результате выполнения которых будет найдено наименьшее значение переменных a и b: 12. какую последовательность чисел выведет на экран серия команд: for i: =-15 to 5 do begin write(i): end; 13. какую последовательность чисел выведет на
экран серия команд: a: =0; while a< =10 do begin writeln(a); a: =a+2; end: 14. какую последовательность чисел выведет на экран серия команд: a: =3; repeat a: =a+3; write(a); until a< 15; 15. запишите серию команд, отображающую на экране последовательность чисел: 6 4 2 0 -2 -4 -6 16.
в чем отличие этих операторов: begin …. end. и begin … end; . 17.запишите алгоритм подсчета произведения 10 произвольно введенных чисел. 18.запишите алгоритм вложенных циклов для таблицы: 1 22 333 4444 55555
number = int(input())
last_number = 0
even = 0
odd = 0
while (number > 0):
last_number = number % 10
if (last_number % 2 == 0):
even += 1
else:
odd += 1
number //= 10
print("Even = ", even, "Odd = ", odd)
Объяснение:
number = int(input()) // Объявление + ввод переменной
last_number = 0 // Переменная для хранения последней цифры числа
even = 0 // Количество четных
odd = 0 // Количество нечетных
while (number > 0): // Пока число > 0
last_number = number % 10 // Получаем последнюю цифру числа
if (last_number % 2 == 0): // Если цифра делится на 2 без остатка
even += 1 // В переменную even делаем + 1
else: // Иначе
odd += 1 // В переменную odd делаем + 1
number //= 10 // Удаляем последнюю цифру числа
print("Even = ", even, "Odd = ", odd) // Вывод
1) program Array16;
var
i:integer; // счетчик в цикле
N:integer;
a: array [1..10] of integer;
begin
writeln('Введите N (N<10)');
readln(N); // ввод размера массива
for i:=1 to N do
begin
write('a[',i,']=');
readln(A[i]); // ручной ввод значений массива
end;
writeln('Результат');
for i:=1 to N do
begin
// вычисление и вывод элементов в указанном порядке
write(' ',a[(i div 2+1)*((i) mod 2)+ n*((i+1)mod 2)-((i div 2)-1)*((i+1) mod 2)]);
end;
end.
2) Var A:array[1..100] of integer;
i,n:byte;
Begin
write('Введите n<=100: ');readln(n);
For i:=1 to n do
Begin
A[i]:=random(31);
write(A[i]:3);
End;
writeln;
For i:=1 to n div 2 do
write(A[i]:3,A[n-i+1]:3);
if n mod 2 <>0 then write(A[n div 2+1]:3);
End.