-•- (к)
--- (о)
-- (м)
•--• (п)
•- (а)
••• (с)
КОМПАС
Var n,a,i,nn:integer;
begin
write('Количество двузначных чисел: ');
readln(n);
for i:=1 to n do begin
repeat
write('Введите ',i,' число');readln(a);
until (a>9) and (a<100);
if a mod 2 =0 then nn:=nn+1;
end;
writeln('Количество четных двухзначных = ',nn);
end.
Тестовое решение:
Введите 1 число1
Введите 1 число23
Введите 2 число44
Введите 3 число3
Введите 3 число32
Введите 4 число45
Введите 5 число56
Количество четных двухзначных = 3
1.в конверте есть письмо
2.нет приглашения, есть письмо
<span>#include <iostream> первое
</span><span>#pragma hdrstop второе
</span><span>using namespace std<span>; третье
</span></span><span>#pragma argsused четвертое
</span><span>int main(int argc, char* argv[]<span>) пятое
</span></span><span>int n<span>; шестое
</span></span><span>do седьмое
</span><span>std::cout << "Enter number: "<span>;<span> восьмое
</span></span></span><span>std::cin >> n<span>; девятое
</span></span><span>while (n != 0)<span>; десятое
</span></span><span>system("pause")<span>; одиннадцатое
</span></span><span>return 0<span>; конец
вроде так</span></span>