Отличник и двоечник встретили учителя. «когда вы поставите нам зачет? » — спросил отличник у учителя. учитель ответил: «я вам не скажу, но несколько намёков». он написал на доске следующие даты:
15 декабря — 16 декабря — 19 декабря
17 января — 18 января
14 февраля — 16 февраля
14 марта — 15 марта — 17 марта
«одна из этих дат — день получения зачета», сказал он.
далее учитель по секрету сообщил отличнику месяц, в котором состоится зачет. двоечнику он также по секрету сообщил число.
«теперь ты можешь догадаться? » — спросил он у отличника.
отличник: я не знаю, когда у нас будет зачет, но я знаю, что двоечник тоже не знает.
двоечник: сначала я не знал, но теперь знаю.
отличник: что ж, теперь и я знаю!
когда ученики получат зачёт?
const
n = 3;
var
a: array[1..n, 1..n] of integer;
i, j, k, sum, sum2, x: integer;
begin
sum := 0;
sum2 := 0;
randomize;
writeln('Исходный массив');
for i := 1 to n do
begin
for j := 1 to n do
begin
a[i, j] := 1 + random(50);
write(a[i, j]:4);
sum := sum + a[i, j];
if a[i, j] mod 3 = 0 then
sum2 := sum2 + a[i, j]
end;
writeln;
end;
Writeln('Сумма всех элементов массива: ', sum);
Writeln('Сумма всех элементов массива кратных 3: ', sum2);
end.
var
a, b, c, v: integer;
s, d1, d2: real;
begin
Writeln('Введите А: ');
Read(a);
Writeln('Введите Б: ');
Read(b);
Writeln('Введите C: ');
Read(c);
V := a * b * c;
Writeln('Результат "V:=a*b*c" = ', V);
Writeln('Введите D1: ');
Read(d1);
Writeln('Введите D2: ');
Read(d2);
s := d1 * (d2 / 2);
Writeln('Результат "s:=d1*(d2/2)" = ', s);
end.
Более простой вариант:
begin
var (a,b,c):= ReadInteger3('Введите А B C: ');
Println('Результат :', a*b*c);
var (d1,d2):=ReadReal2('Введите D1 D1: ');
Println('Результат: ', d1*(d2/2));
end.