Напишите программу, которая считывает с клавиатуры последовательность символов и выводит на экран:
а)количество считанных десятичных цифр;
б)количество четных цифр;
в)количество нечетных цифр;
Ответы на вопрос
Ответил noscope359
0
program qq;
cons N=(количество чисел которые вы вводите)
var i, k1, k2, k3:integer;
A:array[1..N] of longint;
begin
for i:=1 to N do readln(A[i]);
k1:=0; k2:=0; k3:=0;
for i:=1 to N do
if (A[i]>=0) and (A[i]<10) then k1:=k1+1; (десятичные цифры)
for i:=1 to N do
if (A[i]mod2=0) then k2:=k2+1 (четные)
else k3:=k3+1; (нечетные)
writeln(k1, k2, k3);
end.
cons N=(количество чисел которые вы вводите)
var i, k1, k2, k3:integer;
A:array[1..N] of longint;
begin
for i:=1 to N do readln(A[i]);
k1:=0; k2:=0; k3:=0;
for i:=1 to N do
if (A[i]>=0) and (A[i]<10) then k1:=k1+1; (десятичные цифры)
for i:=1 to N do
if (A[i]mod2=0) then k2:=k2+1 (четные)
else k3:=k3+1; (нечетные)
writeln(k1, k2, k3);
end.
Ответил Аноним
0
Вы разбираетесь в информатике ?
Ответил Аноним
0
А особенно в программировании ??
Ответил noscope359
0
Обладаю только поверхностными знаниями.
Ответил Аноним
0
http://znanija.com/task/17357684
Ответил Аноним
0
А вот ту ссылку осилите??
Новые вопросы
География,
2 года назад
Английский язык,
2 года назад
Математика,
8 лет назад
Математика,
8 лет назад
Математика,
9 лет назад
Биология,
9 лет назад