Question

Написать программы на Паскале для решения следующих задач:
1) Ввести номер дня недели и вывести соответствующий ему день недели на русском и английском языках
2)Даны три переменные. Составить алгоритм возведения в квадрат тех из них, значения которых отрицательны.

Answer 1

1.
var a:integer;
begin
read(a);
case a of
1:write('Понедельник - Monday');
2:write('Вторник - Tuesday');
3:write('Среда - Wednesday');
4:write('Четверг - Thursday');
5:write('Пятница - Friday');
6:write('Суббота - Saturday');
7:write('Воскресенье - Sunday');
end;
end.

2.
var a,b,c:longint;
begin
read(a,b,c);
if a<0 then a:=a*a;
if b<0 then b:=b*b;
if c<0 then c:=c*c;
end.