<u>PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
<u>1. Современное решение</u>
begin
var (a,b,c):=ReadReal3;
if (a>b) and (b>c) then else (a,b,c):=(a*a,b*b,c*c);
Println(a,b,c)
end.
<u>Пример</u>
15.8 4.9 13
249.64 24.01 169
<u>2. А так, увы, все еще учат писать во многих школах...</u>
program Toska;
var
a,b,c:real;
begin
Read(a,b,c);
if not ((a>b) and (b>c)) then begin
a:=a*a; b:=b*b; c:=c*c
end;
Writeln(a,' ',b,' ',c)
end.
Найдем растояние:
S=t*V
S=60*5=300;
Найдем V2
V2=60-10=50
Найдем T2:
T2=300/50=6 часам.
//Дам блок-схему и код на Паскале
//Pascal ABC.NET v3.0 сборка 1111
var
r,v,s:real;
begin
readln(r);
v:=4/3*pi*power(r,3);
s:=3/4*pi*sqr(r);
writeln('V=',v,' S=',s);
end.
#include <iostream>
#include <cmath>
using namespace std;
int main()
{
int x = 6;
float z = cos(pow(x, 2)+1)*10*x;
int mod = (int)z % 4;
switch(mod) {
case 0:
cout << "Зима" << endl;
break;
case 1:
cout << "Весна" << endl;
break;
case 2:
cout << "Лето" << endl;
break;
case 3:
cout << "Осень" << endl;
break;
}
return 0;
}
1110 0001 1010 0000 0001 0110 - всего 9 единиц. Просто заменяем каждую шестнадцатиричную цифру четырьмя двоичными.