Решите в паскале)
5-9 класс
|
Дано число.Найти квадрат числа.Если квадрат-четный,то вывести "Четное",иначе вывести квадрат числа.Повторить процесс 5 раз.
Настена1Стар
19 марта 2015 г., 15:23:38 (9 лет назад)
Jesusg
19 марта 2015 г., 17:58:14 (9 лет назад)
var
x, y: longint;
i: integer;
begin
for i := 1 to 5 do
begin
Write('Введите число: ');
Readln(x);
y := sqr(x);
if (y mod 2) = 0 then Writeln('Четное')
else Writeln('Квадрат числа равен ', y)
end
end.
Тестовое решение:
Введите число: 1
Квадрат числа равен 1
Введите число: 2
Четное
Введите число: 3
Квадрат числа равен 9
Введите число: 4
Четное
Введите число: 5
Квадрат числа равен 25
Ответить
Другие вопросы из категории
Выполните перевод. a) 37 Кбайт 515 Байт 3 бит в биты. b) 3 Кбайт в биты. c) 1 Мбайт в биты.
d) 376832 бит в Кбайты.
e) 4096 бит в Кбайты.
f) 2,5 Мбайт в Кбайты
задана строка из шести трехзначных чисел являющихся ASCII кодами некоторых символов. расшифруйте запись: 140 128 139 136 141 128
1) машина
2) газета
3) малина
4) картон
Читайте также
1.Если данное натурального число меньше 10, то прибавьте 10, иначе вычьте. Решить через Паскаль var, begin-end. 2. Дано трехзначное число.
Верно ли, что его первая цифра меньше последней? Решить также. Помогите пожалуйста!
Вы находитесь на странице вопроса "Решите в паскале)", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.