Question

информатика контрольная 7 клас умоляю​

Answer 1

Ответ:

(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