Написать программы на Паскале для решения следующих задач:
1) Ввести номер дня недели и вывести соответствующий ему день недели на русском и английском языках
2)Даны три переменные. Составить алгоритм возведения в квадрат тех из них, значения которых отрицательны.
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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
