Регистрация
glebpoltorak
17.12.2020 08:47
Информатика
Есть ответ 👍

6. составьте программу создания изображения (рис. 3.41) с использованием процедуры nota.

291
419
Посмотреть ответы 1

Ответы на вопрос:

dianapodosenova
dianapodosenova
4,8(73 оценок)
1. var a,k,i,c: integer; begin c: =0; write('введите количество чисел в последовательности: '); readln(k); for i : = 1 to k do begin write('введите число: '); readln(a); if (a mod 2 = 1) and (a mod 10 < > 1) then c: =c+1 end; if c> 0 then writeln('yes') else writeln('no') end. 2. var a,k,i,c: integer; begin c: =0; write('введите количество чисел в последовательности: '); readln(k); for i : = 1 to k do begin write('введите число: '); readln(a); if (a mod 2 = 1) and (a mod 3 = 0) then c: =c+1 end; writeln(c) end.

Популярно: Информатика