Var
a,b,c:integer;
begin
Write('Введите три целых числа: '); Readln(a,b,c);
if a>b then
if b>c then Writeln(a*b) else Writeln(a*c)
else
if a>c then Writeln(a*b) else Writeln(b*c)
end.
<em><u>Тестовое решение:</u></em>
Введите три целых числа: 5 -2 7
35
.. = 2^4 + 2^3 + 2^0 = 16 + 8 + 1 = 25.
Program aaa;
var
a,b,c,d,s: real;
begin
writeln('введите a, b, c, d');
readln(a,b,c,d);
if (a*b+c*d)>=(a*c+b*d)
then
if (a*b+c*d)>=(a*d+b*c)
then s:=a*b+c*d
else s:=a*d+b*c
else
if (a*c+b*d)>=(a*d+b*c)
then s:=a*c+b*d
else s:=a*d+b*c;
writeln(s)
end.
#include <stdio.h>
#include <conio.h>
int main (int argc, char *argv[])
{
int A, k = 0;
double S = 0;
scanf("%d", &A);
while (A != 222)
{
if (A == 5) k++;
S += A;
scanf("%d", &A);
}
printf("k = %d\n",k);
printf("S = %f",S);
getch();
}