Var x1,x2,x3,x4,x5,max:real;
begin
writeln('x1 x2 x3 x4 x5');
readln(x1,x2,x3,x4,x5);
max:=x1;
if max<x2 then max:=x2;
if max<x3 then max:=x3;
if max<x4 then max:=x4;
if max<x5 then max:=x5;
writeln('Наибольшее число - ',max);
end.
Исправить нужно два имени:
А) "новый".txt - нельзя использовать кавычки в имени файла. Правильное имя будет
новый.txt
C) Морской мир. JPEG - в расширении имени файла не должно быть пробелов. Правильное имя будет Морской мир.JPEG
<span>количество полей, какого типа и размера будет состоять каждая таблица</span>
#include <bits/stdc++.h>
using namespace std;
int main() {
bool eq = true;
int x, y;
cin >> x;
while (true) {
cin >> y;
if (y < 0) break;
if (y != x) {
eq = false;
break;
}
x = y;
}
cout << (eq ? "YES" : "NO") << endl;
return 0;
}
Program random_;
uses crt;
var
b,i:word;
begin
b:=0;
for i:=1 to 50 do b:=b+i;
writeln(b);
<span>end.</span>