12,7 * (600/2,54) = 3000 пикс ширина
12,7 * (1200/2,54) = 6000 пикс высота
3000 * 6000 * 4 = 72000000 бит / 8 / 1024 / 1024 = ~ 8 мегабайт
Пусть _ заменяет любую букву из набора К, А, Т и Е. Тогда все удовлетворяющие условию слова можно поделить на группы:
- РР_ (есть 4 слова такого вида, их можно получить, подставляя на место _ буквы из набора)
- Р_Р (4 слова)
- _РР (4 слова)
- РРР (одно слово)
Всего получается 4 + 4 + 4 + 1 = 13 слов.
Нет компилятора чтобы проверить на ошибки, поэтому перепроверь сам на компьютере. Думаю, пойдёт так:
program plov ;
var day : integer ;
var km , sum : real ;
begin
day := 1 ;
km := 3 ;
sum := km ;
while ( sum <= 30 ) do begin
day := day + 1 ;
km := km * 1.1 ;
sum := sum + km ;
end ;
writeln ( 'day=' , day ) ;
end.
Должно, как я думаю, получиться в ответе 8-й день.
Отпиши что получится, ладно? Мне самому интересно.
Я не понимаю что вы написали
Var a,k:integer;
begin
a:=-1;
k:=-1;
while a<>0 do begin
read(a);
if a mod 7 = 0 then k+=1;
end;
writeln(k);
<span>end.</span>