Вопрос по информатике:
Удвоить трѐхзначное число, введенное с клавиатуры, если оно содержит в своей записи хотя бы одну единицу, и возвести в квадрат в другом случае. Если введѐнное число не трѐхзначное, вывести сообщение об ошибке.(В ПАСКАЛЕ)
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 09.03.2018 18:53
- Информатика
- remove_red_eye 11485
- thumb_up 62
Ответы и объяснения 1
program test;
var
num, n : longint;
i : integer;
f : boolean;
begin
readln(num);
n := num;
f := false;
i := 0;
repeat
if n mod 10 = 1 then
f := true;
n := n div 10;
i := i + 1;
until n = 0;
if i 3 then begin
Writeln('Chislo ne treh-znachnoe.');
end
else begin
if f then
num := num * 2
else begin
num := sqr(num); end;
writeln('Rezultat: ', num)
end;
end.
- 09.03.2018 22:09
- thumb_up 1
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.