Var
i:integer;
begin
readln(i);
if i<=7 then
case i of
1:writeln('Это понедельник');
2:writeln('Это вторник');
3:writeln('Это среда');
4:writeln('Это четверг');
5:writeln('Это пятница');
6:writeln('Это суббота');
7:writeln('Это воскресенье');
end
else
writeln('Число слишком большое');
<span>end.</span>
Все числа которые делятся на 5 без остатка в данном случае
<u>+</u> 100 ,95 , 90, 85, 80, 75, 70, 65, 60, 55, 50, 45, 40, 35, 30, 25, 20, 15, 10, 5
решение:
250*64*1200=2343(кб)
ответ:2343кгбайта.
пожалуйста!:)
плиз,лучшее решение!:)это оочень важно-о-о!