var a:integer;
begin
readln (a);
if (a>0) then
repeat
a:=a-3;
until(a<0);
if (b<0) then
repeat
a:=a+2;
until (a>70);
writeln (a);
end.
Бережливым быть умей,
И по клавишам не бей,
Там, учтите этот факт,
Если вводишь ты ответ,
А компьютер скажет "Нет",
По дисплею не стучи,
Лучше правила учи!
Разрешать работу строго
С разрешения педагога,
И учтите : вы в ответе,
За порядок в кабинете!!
Вариант в Excel.
Можно пересортировать.
t = I / v
# I - информационный объём
# v - скорость передачи информации
I = n * l * h * i
# n - количество изображений
# l - длина изображения в пикселях
# h - ширина изображения в пикселях
# i - информационный вес одного пикселя
N = 2^i
# N - мощность алфавита
# i - информационный вес одного пикселя
2^i = 256 =>
i = 8 бит/пиксель = 1 байт/пиксель
v = 144000 бит/сек = 18000 байт/сек
t = n * l * h * i / v = (6 * 300 * 200) пикселей * 1 байт/пиксель / 18000 байт/сек = 20 сек.
Ответ: 20 сек.
52/2 = 26 человек любят конфеты
26 - 20 = 6 любят только конфеты
52 - 6 = 46 любят либо мороженное либо и то и то
46 - 20 = 26 любят только мороженное
46 человек любит мороженное