tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Написать на паскале:
Написать на паскале: из чисел от 10 до 99 вывести те, сумма цифр которых равна s (s> 0; s< 18) cрочно!
avangardstroic
2 31.07.2019 14:00
2
Ответы
vikulya30
03.10.2020 18:37
Var i,s:integer;
begin
write('s = '); readln(s);
for i:=10 to 99 do
if (i div 10)+(i mod 10)=s then write(i,' ');
writeln;
end.
Пример:
s = 10
19 28 37 46 55 64 73 82 91
ПОКАЗАТЬ ОТВЕТЫ
Den0410
03.10.2020 18:37
//Pascal ABC.NET 3.1 сборка 1219
begin
var a:=ReadInteger();
writeln(range(10,99).where(x -> (x mod 10)+(x div 10)=a));
end.
Пример ввода:
13
Пример вывода:
[49,58,67,76,85,94]
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
koschka2000
23.04.2020 18:48
Чертежник находится в точке (0;0) и его перо поднято. Результатом выполнения, какой последовательности команд Чертежником будет отрезок, от точки (1;1) до точки (3;4)?...
VadimButs
23.04.2020 18:48
1. Нумерованный список следует использовать при: 1) составлении алгоритма действий 2) перечислении видов цветов на клумбе 3) описании объектов в комнате 4) перечислении оборудования...
ZhanelTømmeraas
15.04.2020 21:16
Ребята Задание прикрепил скриншотом.....
goldenrosemaryk
15.04.2020 21:16
Как нарисовать ракету и звезды в кумире...
радмирик
15.04.2020 21:16
Дан массив Week из 7 элементов Заполнить массив случайными целыми числами от 0 до 9 Определите какие Двузначные числа образуют соседние элементы. Например массив 4;9;1;4;3;3;1 образует...
fgf14
06.06.2019 02:50
Файл размером 80 кбайт передаётся через некоторое соединение со скоростью 2048 бит в секунду. определите размер файла (в кбайт), который можно передать за то же время через другое...
angrelygovo201
06.06.2019 02:50
Система команд исполнителя ластик имеет вид: (умножение на последнюю цифру) a) числа 7 из числа 361: б) числа 14 из числа 457:...
alkasalamatina
06.06.2019 02:50
Написать программу в паскале и подробно описать присвойте z значение большего из x и y в том случае если x 0 и меньшего если x =0...
никита3473
22.08.2019 03:20
Дан массив (размерностью 5х5) (элементы вводятся с клавиатуры) . вывести элементы стоящие на главной диагонали...
darinakydryash
12.12.2020 08:39
Найдите и назовите тип таблицы и напишите...
Популярные вопросы
1)Вещество, молекулы которого образованы посредством металлической связи: а) Н2...
1
Какие праздники были у коренных жителей Ленинграда?...
2
В какой таблице даны обратно пропорциональные величины ?...
2
Луч ML является биссектрисой угла ∡KMN, луч MT — биссектрисой угла ∡KML, луч MV...
1
Если уменьшить концентрацию молекул в идеальном газе в 2 раза, сохраняя постоянной...
1
Хочу сказать что знания ру полный отстой блин если хотите меня подержать жою за...
2
по геометрии (*_*) На рисунке угол 1=угол 2,угол 3=угол 4.Найдите периметр четырёхугольника...
2
Составьте квадратное уравнение корни которого равны обратным кубам корней уравнения...
3
составить кроссворд на тему плоские и ленточные черви, 17 вопросов с ответами....
1
Айтылым 6-тапсырма. Суретке қара. Жаз және күз айларын салыстыр.3 класс...
2
begin
write('s = '); readln(s);
for i:=10 to 99 do
if (i div 10)+(i mod 10)=s then write(i,' ');
writeln;
end.
Пример:
s = 10
19 28 37 46 55 64 73 82 91
begin
var a:=ReadInteger();
writeln(range(10,99).where(x -> (x mod 10)+(x div 10)=a));
end.
Пример ввода:
13
Пример вывода:
[49,58,67,76,85,94]