Енотик Пётр считает, сколько места на жёстком диске ему понадобится для школьных проектов в новом учебном году. Пётр вывел, что 1 страница текстового документа в среднем занимает у него 150 КБ памяти, а 1 слайд презентации — 300 КБ. Также Пётр хочет иметь запас в 10 МБ. Учебный год Петра длится 36 недель. Сколько мегабайт памяти понадобится енотику, если он будет делать по реферату два раза в неделю на 9 страниц, а также по одной презентации в неделю на 8 слайдов? ответ округлите до целого числа в бОльшую сторону. Задача по олимпиаде ответьте
Free Pascal. Все три задания в одном коде.
Объяснение:
const k=10;
var
a, i, n: integer;
s : double;
ar : array[0..k-1] of integer;
begin
writeln('Задание 4');
write('Введите число : ');
readln(a);
for i:=8 to 18 do
if a>=0 then
write(sqrt(i):2:2, ' ')
else
writeln((i+0.8):2:1);
writeln();
writeln('---------------------------------');
writeln('Задание 5');
write('Введите n : ');
readln(n);
s:=0;
for i:= 1 to n do
s := s + i/2;
writeln('Сумма ряда = ', s:2:1);
if s>10 then
writeln('Сумма ряда больше 10')
else
writeln('Сумма ряда меньше 10');
writeln('---------------------------------');
writeln('Задание 6');
for i:=0 to k-1 do begin
write('введите [', i, '] = ');
readln(ar[i]);
end;
n:=0;
for i:=0 to k-1 do
if (ar[i] mod 2 = 0) then
inc(n);
writeln('Кол-во чётных чисел = ', n);
end.