Var a,k,s :integer;
sr:real;
begin
s:=0;
a:=12;
k:=0;
repeat
s:=s+a;
k:=k+1;
a:=a+1;
until (a>99);
sr:=s/k;
writeln (sr);
end.
#include <iostream>
using namespace std;
int main()
{
float x;
setlocale (LC_ALL, "Russian");
cout << "Введите мощность в л.с.: ";
cin >> x;
cout << "Мощность в кВт равна " << x/<span>1.35962 << endl;
</span>system ("pause");
}
<span>В греческом алфавите 24 буквы, кроме того в доклассическую эпоху в некоторых диалектах греческого применялись ещё 4 буквы — Ϝ, ϝ (дигамма) , Ϻ, ϻ (сан) , Ϙ, ϙ (коппа) , Ͳ, ͳ (дисигма) . В классическом греческом первые 3 из этих букв использовались для записи чисел.</span>
Program qq;
var k, a, b, c: integer;
begin
for k:=100 to 999 do begin
a:=k div 100;
b:=k mod 100;
b:=b div 10;
c:=k mod 10;
if a*a*a+b*b*b+c*c*c=k then begin
writeln (k);
end;
end;
end.
Процессор является мозгом компьютера. Потому что без него компьютер никак не запустится и не сможет выполнять многие команды.