// PascalABC.NET 3.4.2, сборка 1785 от 06.09.2018
begin
var (w, h) := ReadInteger2('w,h->'); // точка (w;h)
var (ox, oy) := (w / 2, h / 2); // находим координаты цента (0;0) и (w;h)
(w, h) := ReadInteger2('rw,rh->'); // ввод RW и RH
Println($'Координаты левой верхней вершины ({ox+h/2};{oy-w/2})'); // - половина высоты прибавляется и половина ширины вычитается
Println($'Координаты правой нижней вершины ({ox-h/2};{oy+w/2})'); // - половина ширины прибавляется и половина высоты вычитается
end.
Если моя математика не подводит, то должно быть верно.
12591=10000+2000+500+90+1
Ответ:
2
Объяснение:
Вначале i =3.
Цикл while выполняется, пока заданное условие истинно. В нем, в частности, i каждый раз уменьшается на 1.
После первого "Привет" i = 2, после второго - 1, и дальше не надо уже. Значит, выражение у while при i = 1 должно стать ложным, а при i>1 оставаться истинным. В нем указано отношение >=, т.е. надо указать 2 и при 1 оно уже не выполнится.
Написал данную программу и запустил. Результатом выполнения стало число 40.
Ответ 40.
Надеюсь помог, удачи :)
{ Pascal }
PROGRAM Calendar(INPUT, OUTPUT);
VAR
Num: INTEGER;
BEGIN
WRITE('Введите номер месяца: ');
READ(Num);
CASE Num OF
1: WRITELN('Январь');
2: WRITELN('Февраль');
3: WRITELN('Март');
4: WRITELN('Апрель');
5: WRITELN('Май');
6: WRITELN('Июнь');
7: WRITELN('Июль');
8: WRITELN('Август');
9: WRITELN('Сентябрь');
10: WRITELN('Октябрь');
11: WRITELN('Ноябрь');
12: WRITELN('Декабрь');
END;
END.