var i:integer;
begin
for i:=15 to 90 do if i mod 15 = 0 then write(i,' ');
end.
<em>// PascalABC.NET 3.2, сборка 1399 от 08.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
ReadSeqReal(3).Select(x->x<0?sqr(x*x):x*x).Println
end.
<u>Пример</u>
3.18 -5.722 1.94
10.1124 1071.99167796866 3.7636
Выделяешь поля, из которых нужно вычислить средний бал, жмякаешь на выделенную синим цветом кнопочку и выбираешь СРЗНАЧ, жмякаешь ОК)
Если длина ребра именно равна 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.
#include <iostream>
using namespace std;
int main(){ double a;
int tmp;
cout <<"Введите число"<<endl;
cin>> a; tmp = (int)a;
cout <<tmp<<endl;
cout << a - tmp <<endl;
return 0;
}<span>
</span>