1-ая задачка:На обилье чисел от 1 до 100 найти количество десятков
Первая задача:На множестве чисел от 1 до 100 определить количество 10-ов во введенном пользователем числе. К примеру: ввели 43, ответ "4 10-ка", для 89 - "8 десятков". Использовать case.
2-ая задача: Юзер вводит двузначное число. Наращивать его на 1 до тех пор, пока значения разрядов не совпадут. Вывести итог. К примеру: ввели 27, результат - 33. (repeat)
Джапелидзе
Ксения
В ординарном виде на питонеa=int(input())print("%d 10-ов" % (a // 10 if not (a//100) else 0))
Timur Purishev
а, ну да, case. C++ чтоли?
Вера Сураева
Паскаль...
Анастасия
А что писать то до этого: a=int(input())print("%d 10-ов" % (a // 10 if not (a//100) else 0))???
Таисия Порывакина
Сейчас, поставлю fpcвозможно как-то такvar n : integer;beginwriteln('Введите n:');readln(n);case n of100: writeln('0 десятков');else:writeln(n/10,' десятков');end.
Витя Кацыка
Спасибо огромное
Pashok Toropov
вряд ли будет работать, на данный момент протестирую
Гордиевская
Алёна
Ок
Тимур Ядыхин
var n : integer;beginwriteln('Введите n (от н до 100):');readln(n);case n of100: writeln('0 10-ов');else writeln(n div 10,' десятков');end;end.Вот, вроде правильно
Светлана Кацаран
Спасибо, со второй попробую сам)
1 ответ
Степан Аввакулов
// PascalABC.NET 3.3.5, сборка 1636 от 10.03.2018
// Внимание! Если программка не работает, обновите версию!
1
begin
var n:=ReadInteger;
var d:=n div 10;
case d of
0,5..10:Writeln(d,' 10-ов');
1:Writeln('1 десяток');
2..4:Writeln(d,' 10-ка');
else Writeln('Недопустимое число')
end;
end.
Пример
42
4 10-ка
2
begin
var n:=ReadInteger;
if n mod 10 lt;gt; n div 10 then
repeat
n+=1
until n mod 10 = n div 10;
Writeln('Получено число ',n)
end.
Пример
37
Получено число 44
// Внимание! Если программка не работает, обновите версию!
1
begin
var n:=ReadInteger;
var d:=n div 10;
case d of
0,5..10:Writeln(d,' 10-ов');
1:Writeln('1 десяток');
2..4:Writeln(d,' 10-ка');
else Writeln('Недопустимое число')
end;
end.
Пример
42
4 10-ка
2
begin
var n:=ReadInteger;
if n mod 10 lt;gt; n div 10 then
repeat
n+=1
until n mod 10 = n div 10;
Writeln('Получено число ',n)
end.
Пример
37
Получено число 44
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Игорь 14 лет назад был на 8 лет моложе, чем его
Математика.
Два тела массами m1 и m2 находящие на расстоянии R друг
Физика.
В сосуде 4целых одна пятая литр воды что бы заполнить сосуд
Математика.
Двум малярам Диме И Олегу поручили выкрасить фасад дома они разделили
Разные вопросы.
найти порядковый номер 41Э если в ядре 20 нейтронов
Разные вопросы.
в ряду натуральных чисел 3, 8, 10, 24, … 18 одно
Математика.
Предприятие по производству с/хоз продукции на производство затратило 3527000 руб Валовый
Разные вопросы.
Математика, задано на каникулы. ВАРИАНТ 1004
НОМЕР 1,2,3,4,5,6,7,8.
Математика.
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
Облако тегов