Var k,ans:integer;
begin
k:=0;
write('Пробежишь кружочек? (1-да, 0-нет) ');
readln(ans);
while ans=1 do
begin
k:=k+1;
write('Пробежишь ещё кружочек? (1-да, 0-нет) ');
readln(ans);
end;
writeln('k = ',k);
end.
Пример:
Пробежишь кружочек? (1-да, 0-нет) 1
Пробежишь ещё кружочек? (1-да, 0-нет) 1
Пробежишь ещё кружочек? (1-да, 0-нет) 1
Пробежишь ещё кружочек? (1-да, 0-нет) 0
k = 3
<span>Поправил
----------------------------------------------
Program lala;
var a:integer;
begin
read(a);
if a mod 2 =0 then
writeln(a,' Чётное число')
else writeln (a, ' Нечётное число');
end.</span>
В пятеричной, так как 22 в 5 = 12 в 10, 23 в 5 = 13 в 10, а 100 в 5 = 25 в 10, то есть 12+13=25, ч.т.д
Ответ:
15 или 16 в зависимости от используемой системы единиц. См. решение
Объяснение:
Текстовый документ занимает память :
N*2048*2 байт ⇒ N*4096
Растровый документ занимает:
N*1536*1024*3 байт (24-битная = 3 байтная, т.к. 1 байт=8 бит) ⇒
N*4718592.
Получаем неравенство:
N*4718592 - N*4096 > 70000000 (если за 1 Мбайт принять 1000000 байт)
N*(4718592-4096) > 70000000
N > 14 (ответ 15)
N*(4718592-4096) > 73400320 (если за 1 Мбайт принять 1 048 576 байт)
N > 15 (ответ 16).