Вопрос по информатике:
Даю 45 баллов!!! Очень нужно срочно!!!!
Задание в Паскале:
Ввести x,y если оба чётные числа. Вывести на экран квадрат их суммы.
Заранее большое спасибо!!!
Пожаловаться
- 25.07.2018 07:26
- Информатика
- remove_red_eye 18309
- thumb_up 45
Ответы и объяснения 2
Program zadacha;
var
x,y:integer;
begin
writeln('Введите x:');
readln(x);
writeln('Введите y:');
readln(y);
writeln(Sqr(x+y));
end.
var
x,y:integer;
begin
writeln('Введите x:');
readln(x);
writeln('Введите y:');
readln(y);
writeln(Sqr(x+y));
end.
Пожаловаться
- 26.07.2018 13:12
- thumb_up 17
//PascalABC.NET
//Версия 3.3, сборка 1627
begin
var (x,y):=ReadInteger2;
if x.IsEven and y.IsEven then write((x+y)**2);
end.
//Версия 3.3, сборка 1627
begin
var (x,y):=ReadInteger2;
if x.IsEven and y.IsEven then write((x+y)**2);
end.
Пожаловаться
- 27.07.2018 01:02
- thumb_up 34
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы