Решения должны работать на любом диалекте, хотя не проверял...
№1 program Task1; var a:integer; begin read(a); if a<0 then begin write(sqr(a)); end else if a>0 then begin write(a) end; end. №2 program Task2; var x,z:integer; begin read(x); if x>0 then begin z:=x*x;end; write(z); end.
Улучшенный вариант (работает под PascalABC.Net последних обновлений):
№1 begin var a:integer; read(a); if a<0 then begin write(sqr(a));end else if a>0 then begin write(a) end; end. №2 begin var x:integer; read(x); if x>0 then x*=x;write(x);//Результат будет выведен в любом случае, вне зависимости от того, x>0 или нет end.
Последовательность дней недели периодична с периодом 7, поэтому номер дня недели можно найти, взяв остаток от деления: (номер дня недели первого числа + сколько Такое решение будет давать верный ответ для всех дней недели кроме воскресенья: для воскресений будет выведен ноль (а не 7). Решить это можно, перенумеровав все номера дней недели с нуля, а не с единицы.
m - 1 – номер дня недели первого числа месяца (считая с 0) n - 1 – пройдёт от первого числа (m + n - 2) mod 7 – номер нужного дня недели (считая с 0) (m + n - 2) mod 7 + 1 – ответ.
Программа (PascalABC.NET): begin var n := ReadInteger; var m := ReadInteger; print((m + n - 2) mod 7 + 1) end.
Пример ввода: 7 7
Пример вывода: 6 (Действительно, 1 апреля 2018 года – воскресенье, а сегодня, 7 апреля – суббота)
№1
program Task1;
var a:integer;
begin
read(a);
if a<0 then begin write(sqr(a));
end else if a>0 then begin write(a) end;
end.
№2
program Task2;
var x,z:integer;
begin
read(x);
if x>0 then begin z:=x*x;end;
write(z);
end.
Улучшенный вариант (работает под PascalABC.Net последних обновлений):
№1
begin
var a:integer;
read(a);
if a<0 then begin write(sqr(a));end else
if a>0 then begin write(a) end;
end.
№2
begin
var x:integer;
read(x);
if x>0 then x*=x;write(x);//Результат будет выведен в любом случае, вне зависимости от того, x>0 или нет
end.