В результате выполнения программы по данному алгоритму, получится 8
var s1,s2,a,b: integer; i: integer;begin s1:=0; s2:=0; a:=1; b:=3; for i:=a to b do begin if i mod 2=0 then s2:=s2+i*i else s1:=s1+i; end; s1:=s1+s2; writeln(s1);end.
А вот и нет! Они называются Croutons! Да, точно! Они называются Croutons!
Ответ:
122,8 мин - 2,05 часа
Объяснение:
Могу предложить решение, буквенные обозначения подставь.
600Мб*1024=614400Кб - объем диска
614400/500=1228,8 - 1228 фото
1228*6=7368 сек=122,8 мин.
Если длина ребра именно равна 2 (a=2), то решаем так:
begin
Writeln(2*2*2,' ', 2*2); //Первое число - объём куба, второе - площадь боковой поверхности
end.
А если нам следует ввести значение a, то решаем так:
var a:int64;
begin
read(a);
Writeln(a*a*a,' ', a*a); //Первое число - объём куба, второе - площадь боковой поверхности
end.