Оля — популярная модель, она ведёт в Instagram блог в жанре лайфстайл. В среднем в день Оля делает 50 фотографий по 2 мегабайта, из которых выбирает десять для ежедневной публикации. Оля удаляет половину фотографий, которые делает в течение дня, а оставшиеся десять хочет сохранять на диске как семейный фотоархив. Какой тариф подойдёт для Оли на год (50 недель)?
1) Информационный объём фотографий в день:
·
=
мегабайт
2) Информационный объём фотографий за одну неделю:
·
=
мегабайт
3) Общий объём фотографий за год:
·
=
мегабайт
4) Объем в гигабайтах, принимая, что в 1 ГБ = 1000 МБ:
:
=
гигабайт
Тарифы:

Бесплатный тариф — до 3 гигабайт

Стандартный тариф — до 9 гигабайт

Бизнес-тариф — до 27 гигабайт

Расширенный тариф — до 81 гигабайта

var x,y,nod,nok: longint;

begin

read(x,y);

a: =x; b: =y;

while (a> 0) and (b> 0) do

if a> b then a: =a mod b

else b: =b mod a;

nod: =a+b;

nok: =(x div nod)*y;

write(nok);

end;

иван-занимается легкой атлетикой,петр-баскетболом, алексей-хоккеем, андрей-футболом

20 - 25 = -5

-5 в десятичной системе

пример программы для паскаль

program a;

const n = 50; vari: byte; b: array[1..n] of word; procedure proc(a: array of word); beginfor i: =1 to n doif((129 < = a[i]) and (a[i] < = 160)) or        ((161 < = a[i]) and (a[i] < =175)) or          ((225 < = a[i]) and (a[i] < = 242)) thenwriteln('index =  ',i+1,'; bukva -  ''',char(a[i]),'''','    a[i] =  ',a[i]); end;

beginwriteln; for i: =1 to n do              b[i] : = random(300); for i: =1 to n do begin                  write(' ',i,'  =  ',b[i]); if (i mod 5 = 0) then writeln; end; writeln; writeln; proc(b);           readln;

end.