О! научился формулировать задачу. Уже хорошо.
program zadanie1;
var
max,num,a :byte;
begin
max:=0;
writeln('vvodite chisla');
repeat
readln(a);
if a*a>225 then
writeln('Slishkom bolshoe chislo')
else
if max<a then max:=a ;
until a=0;
readln;
writeln('max=',max);
end.
MCMXCV = 1995
M = 1000
CM = -100 + 1000 = 900
XC = -10 + 100 = 90
V = 5
1000 + 900 + 90 + 5 = 1995
Program n1;
var a,max: integer;
begin
max:=-1;
readln(a);
while a<>0 do
begin
if a>max then max:=a;
readln(a);
end;
writeln(max);
end.
#include <iostream>
using namespace std;
double f(double x, double y, double z) {
return x*y*z;
}
int main()
{
double a, b, c, r;
cout << "Введите a:", cin >> a, cout << "\n";
cout << "Введите b:", cin >> b, cout << "\n";
cout << "Введите c:", cin >> c, cout << "\n";
r = f(a,b,c);
cout << r;
return 0;
}
Пример:
<span>Введите a: 5
Введите b: 8
Введите c: 4
160</span>