<u>На Паскале:</u>
var a,b,c,x: integer;
begin
writeln('Введите первую цифру: ');
readln(a);
writeln('Введите вторую цифру: ');
readln(b);
writeln('Введите третью цифру: ');
readln(c);
x:=a+b+c;
writeln('x = ',x);
end.
writeln - процедура для записи значений.
readln - процедура считывающая значения с клавиатуры.
28800 бит = 3600 байт = 3,515625 Кбт
Ответ:
1 место могут получить все 5 человек, тогда на второе место будет претендовать 4 человека, а на 3 - 3. Произведение 5*4*3=60
Program one;
var x, y: real;
begin write('Введите число x: '); read(x); y := x * 1 * x * 2 + x * 1 * x * 3 + x * 2 * x * 3; write('Ответ: ', y);end.