<em>// PascalABC.NET 3.2, сборка 1431 от 28.04.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln(ReadSeqReal(3).Max)
end.
<u>Пример</u>
5.2 14 -1.156
14
Writeln предписывает вывести то, что записано у него в
скобках. ReadSeqReal(3) обеспечивает чтение трех чисел вещественного
типа с клавиатуры, а Max находит максимальное из них...
Var a,b,c,d,sr:real;
begin
read(a,b,c,d);
sr:=(a+b+c+d)/4;
if (a<b) and (b<c) and (c<d) then
begin
a:=d;
b:=d;
c:=d;
end
else
if (a>b) and (b>c) and (c>d) then
begin
a:=sr;
b:=a;
c:=a;
d:=a;
end
else
begin
a*=a;
b*=b;
c*=c;
d*=d;
end;
write(a,' ',b,' ',c,' ',d);
<span>end.</span>
//Не знаю, что Вы хотели сделать этим for(a<=b...
//Dev-C++ 4.9.9.2
#include <iostream>
using namespace std;
int main(){
int a,b=0;
cin>>a>>b;
for(int i=a;i<=b;i++)
cout<<i<<endl;
for(int i=b;i<=a;i++)
cout<<i<<endl;
cin.get();
cin.get();
return 0;
}
Пример ввода 1:
5
1
Пример вывода 1:
1
2
3
4
5
Пример ввода 2:
1
5
Пример вывода 2:
1
2
3
4
5
1. Узнать какие сегодня уроки
2. Достать нужные принадлежности и пенал
3. Достать портфель
4. Открыть портфель
5.Положит эти принадлежности в портфель
6. Закрыть портфель
7. Все перепроверить и убедится, что взято