Определить в числе, не превышающем миллиард (1000000000) количество чётных чисел...

BlackBerry2001 @BlackBerry2001

July 2022 1 4 Report

Определить в числе, не превышающем миллиард (1000000000) количество чётных чисел (Паскаль) Можно пожалуйста простое решение

Answers & Comments

ShirokovP

Verified answer

Var
N: integer;
s: string;
i,c: byte;

begin
ReadLn(N);
Str(N,s);
c:=0;
for i:=1 to Length(s) do
if s[i] in ['0','2','4','6','8'] then
Inc(c);
WriteLn(c);
end.

1 votes Thanks 2

kakoj rajon strany imeet gosudarstvennuyu granicu s kazahstanom mongoliej i kita

Answer

BlackBerry2001 November 2021 | 0 Ответы

5predlozhenij s glagolami na tsya i tsya 5 predlozhenij s glagolami na shipyashuyu

Answer

Answers & Comments

Verified answer

opredelit yavlyaetsya li simmetrichna stroka v paskale

podskazhite plan opisaniya svoej vneshnosti chtob poluchilos ot 10 predlozhenij

pomogite pozhalujsta reshitc95f10057d86a9641fcbc35d13ee1454 29432

pomogite pozhalujsta s resheniem63e58891f6b0d54303d38e307e0b6b24 35055

dva massiva po 20elementovnaturalnye chisla ot 1 do 12 skolko par iz 2 mass

kakoj rajon strany imeet gosudarstvennuyu granicu s kazahstanom mongoliej i kita

5predlozhenij s glagolami na tsya i tsya 5 predlozhenij s glagolami na shipyashuyu

рекомендуемые вопросы

Helpful Links

Helpful Social