1. Информатика
  2. Найти все трехзначные числа,

Найти все трехзначные числа, у которых сумма крайних цифр. равна 5 , а само число делятся на 3(pascal)

ikonnikoval ikonnikoval    3   24.05.2019 05:40    1

Ответы
alinkaaa888 alinkaaa888  20.06.2020 01:13
Var i:integer;
begin
for i:=100 to 999 do
if ( i mod 100 div 10+i mod 10=5 ) and (i mod 3 = 0) then writeln(i);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
саня1361 саня1361  21.09.2019 09:10
Program z1; var a,b,c,k: integer ; begin; read; k: =1; while (a 0) or (b 0) do; begin; b: =b*2; a: =a-b/2; if a =0 then wrileln( чёрт ) else begin; b: =b-c; a: =a+c; end;...
dapmoney2p0c8c0 dapmoney2p0c8c0  04.04.2021 16:34
Как можно обойтись без использования функции AVERAGE, если нужно вычислить среднее арифметическое для диапазона C2:D55, полностью заполненного числами? Запишите формулу....
akm0910 akm0910  01.04.2020 14:25
Скласти 3 різні алгоритми для программи Scratch​...
Mirajanesan Mirajanesan  01.04.2020 14:28
умоляю, информатика 8 класс.Составьте блок-схему вычисления сколько в N сутках часов, минут, секунд...
zhanara3109 zhanara3109  01.04.2020 14:28
1 из 11. Переменные М, М1 и М2 описаны в программе как целочисленные. Определите значение переменных М1 и М2 после выполнения следующего фрагмента программы:М1 := 56;...
Wilde163 Wilde163  14.07.2022 09:01
Два игрока, Петя и Ваня, играют в следующую игру. Перед игроками лежит куча камней. Игроки ходят по очереди, первый ход делает Петя. За один ход игрок может добавить в...
elvinaaminova2004 elvinaaminova2004  14.07.2022 08:52
Я написал код к задаче на языке пайтон, в целом он работает но не совсем корректно нужно его подправить. я не знаю в чем ошибка код: price = int(input( Стоимость товара...
Dimaska123 Dimaska123  14.07.2022 07:01
Основываясь на условии я сделал код а он не работает category = input( Категория (off - завершить): ) summa = int(input( Сумма: )) if category.lower == Выпечка : print(...
Школьниқ Школьниқ  14.07.2022 04:44
на Пайтоне Два списка целых заполняются случайными числами. Необходимо: ■ Сформировать Третий Список,содержащий элементы обоих списков; ■ Сформироватьтретийсписок,содержащийэлементы...
sss126 sss126  14.07.2022 04:00
ПАСКАЛЬ! Дано дві квадратні матриці A, B 3-го порядку. Побудувати таблицюфункції y = cx2 + d при змінному від 0 до 1 з кроком 0.1, де с = sp(A), d =sp(B). (sp(A) – слід...

Популярные вопросы