Надо в сосуд 3 налить 1р перелить в 5л и снова в 3л и в 5л останеться в 3л 1 л
var a: integer;
begin
write('Введите a: ');
readln(a);
if odd(a) then a:=a*a*a else a:=a*a;
writeln(a);
end.
odd(a) - функция, проверяющая нечетность числа. True - если число - нечетное. (Обратная функция not odd(a))
Program gt;
var a,b,c,s:real;
begin
read(a,b,c);
if(abs(a)>1)or(abs(b)>1)or(abs(c)>1) then s:=(a+b+c)/3 else s:=a*b*c;
writeln(s);
end.
Компьютеры в XXI веке достигли пиковой популярности. Они используются везде, и это не преувеличение. Придя на любую работу мы столкнёмся с вопросом о знании компьютеров, смартфонов или других устройств. В магазине покупатель будет оплачивать покупку с помощью телефона, в институте мы будем записывать лекцию на ноутбуке, в офисе заполнять документы на компьютере. В моей профессиональной деятельности компьютер - это основа этой деятельности. Моя работа основана на знании устройства компьютера, его способностей, ведь я создаю "интерфейсы", через которые люди "общаются" с компьютером: производят вычисления, служат базой данных и так далее. Компьютеризирование в наше время протекает во всех областях, где человек только может работать. Поэтому через несколько лет мы вряд ли увидим какую-нибудь профессию, которая не требовала бы знания компьютеров или телефонов.
Для палитры 65536 цветов требуется 16 бит или 2 байта на точку.
Перемножим все данные и получим:
1024*768*2=1572864 байт=1536 кбайт = 1,5 Мбайт