Ответы
Ответ:
(1)
program f1;
var a, d, c : Integer;
begin
readln(a);
readln(d);
c := a * d - 16;
writeln(c);
end.
(2)
Writeln() - Вывод данных на экран, после вывода курсор
переносится на новую строку
Readln() - Ввод данных с клавиатуры, после ввода курсор
переносится на новую строку
(3)
Целые var Students : Integer = 25;
Вещественные var PI : Real = 3.14;
(4)
program a1;
begin
writeln('Сегодня у нас последний месяц зимы');
writeln('Все учащиеся ждут каникулы');
end.
(5)
program Task5;
var
x : Integer;
y : Real;
begin
readln(x);
readln(y);
x := x + 27;
y := y / 30;
writeln(x);
writeln(y:8:2);
end.
(6)
45 3840
30 0
125 24320
(7)
program Task7;
uses Math;
var
x : Extended;
y : Integer;
begin
readln(x);
y := round(12 * x + 5 * power(x, 2) - 16);
writeln(y);
end.
43 9745
23 2905
65 21889
(8)
program Task8;
uses Math;
var
x : Real;
begin
readln(x);
writeln(round(x));
end.
7.569 8
12.569 8
145.785 146
(9)
program Task9;
uses Math;
var
x : Real;
begin
readln(x);
writeln(frac(x):0:3);
end.
16.52 0.520
2.69 0.690
69.458 0.458
(10)
program Task10;
uses Math;
var
MandKm : Integer;
M : Integer;
Km : Integer;
begin
readln(MandKm);
Km := MandKm div 1000;
M := MandKm mod 1000;
writeln(MandKm, 'км = ', Km, 'км, ', M, 'м');
end.
25487 25 487
1236 1 236
124578 124 578