var prod,i:integer;
begin
prod:=1;
for i:=10 to 99 do
if(i mod 15=0) then prod:=prod*i;
writeln(prod)
end.
<u>Дано:</u>K=3*40*60
i = 6 (т.к
)
I = ?
<u>Решение:</u> бит. В задании нужно перевести биты в байты. 1 байт = 8 бит. Разделим на 8 (
)
Байт
Считаем и в итоге получаем
Байт
<em>Ответ: 5400 байт</em>
var a,b,k:integer;
begin
writeln('a, b, k:');
readln(a,b,k);
writeln('Каждый получит по ', (a+b) div (k+2),' гр.');
end.
Пример:
a, b, k:
15 20 4
Каждый получит по 5 гр.
Program mq;
var
age:integer;
a:array[1..3] of String = ('ребёнок','ученик','студент');
begin
Read(age);
case age of
1..6:WriteLn(a[1]);
7..18:WriteLn(a[2]);
19..25:WriteLn(a[3]);
end;
end.
С блок схемой затруднения, сорян.