X=0;
for(i=1;i<51;i+=4)
X+=i;
S=0;
for(i=0;i<=12;i++)
S+=i*i;
S*=2;
// PascalABC.NET 3.1, сборка 1200 от 13.03.2016
var
a,b,c,y:real;
begin
Write('Введите через пробел три числа: '); Read(a,b,c);
if a>b then y:=a else y:=b;
if c>y then y:=c;
Writeln('y=',y)
end.
<u><em>Тестовое решение:</em></u>
Введите через пробел три числа: 6.18 -5 2.11
y=6.18
Ответ:
как-то так:
#include <iostream>
using namespace std;
int main() {
setlocale(LC_ALL, "RUS");
cout << "Данные какой страны вывести?\n1. Венгрия..." << endl;
int choise;
cin >> choise;
switch choise {
case 1:
cout << "Столица - Будапешт, население - 11 млн. чел." << endl;
case 2:
cout << "Столица - Рим, население - 60 млн. чел." << endl;
case 3:
cout << "Столица - Афины, население - 10 млн. чел." << endl;
case 4:
cout << "Столица - Анкара, население - 55 млн. чел." << endl;
case 5:
cout << "Столица - Каир, население - 53 млн. чел." << endl;
case 6:
cout << "Столица - Катманду, население - 18 млн. чел." << endl;
case 7:
cout << "Столица - Брюссель, население - 10 млн. чел." << endl;
}
system("pause");
return 0;
}