Предназначен для исполнения<span>может иметь бесконечное число шагов.
</span>
program n1cel;
var
a,c:integer;
begin
a:=1;
c:=1;
while с mod 2009<>0 do
begin
a:=a+1;
c:=c+11;
end;
writeln ('через ', a, ' секунд');
end.
Ответ: размер файла 26,25 Мбайт
Объяснение:
512 Кбит = 512 / 8 = 64 Кбайт
7 мин = 7 * 60 = 420 сек.
64 Кбайт * 420 сек = 26880 Кбайт
26880 Кбайт = 26880 / 1024 = 26,25 Мбайт
Var n,k1,k2:integer;
begin
write('n = ');
readln(n);
k1:=0; k2:=0;
while n>0 do
begin
if n mod 2=0 then k1:=k1+1 else k2:=k2+1;
n:=n div 10;
end;
writeln('Четных цифр - ',k1,', нечетных - ',k2);
end.
Пример:
n = 14568
Четных цифр - 3, нечетных - 2
#include <iostream>
using namespace std;
int main() {
int a, count = 0;
for(cin >> a; a >= 0; a /= 10)
if(a % 10 % 2 == 0) count++;
cout << count << endl;
return 0;
}