Вход
Регистрация
Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
.....больше.....
..меньше..
laralarisa
21.06.2020 01:43 •
Информатика
Написать программу, которая бы запрашивала возраст мужчины и сообщала, сколько ему лет осталось до пенсии, либо что он уже пенсионер. мужчины на пенсию уходят в 60 лет.
👇
Увидеть ответ
Ответ:
konoval1i
21.06.2020
Programma pensioner Например:мужчине 57 лет (нажимаем на кнопку далее) ответ:мужчине осталось 3 года до пенсии
4,4
(16 оценок)
Открыть все ответы
Ответ:
yarikplay13
21.06.2020
//PascalABC.NET (версия 3.1, сборка 1196 от 09.03.2016)
begin
for var i:=1 to 1000 do
if i mod 7 =0 then print(i);
end.
Тестовое решение:
7 14 21 28 35 42 49 56 63 70 77 84 91 98 105 112 119 126 133 140 147 154 161 168 175 182 189 196 203 210 217 224 231 238 245 252 259 266 273 280 287 294 301 308 315 322 329 336 343 350 357 364 371 378 385 392 399 406 413 420 427 434 441 448 455 462 469 476 483 490 497 504 511 518 525 532 539 546 553 560 567 574 581 588 595 602 609 616 623 630 637 644 651 658 665 672 679 686 693 700 707 714 721 728 735 742 749 756 763 770 777 784 791 798 805 812 819 826 833 840 847 854 861 868 875 882 889 896 903 910 917 924 931 938 945 952 959 966 973 980 987 994
4,7
(88 оценок)
Ответ:
KVika65
21.06.2020
Думаю нет большой разницы между процедурой и функцией, просто функция куда удобнее.
Для нахождения нода используется алгоритм Эвклида
//PascalABC.Net
function NOD(A, B: integer): integer;
begin
while A <> B do
if A > B then A := A - B else B := B - A;
NOD := A;
end;
procedure pNOD(A, B: integer; var NOD: integer);
begin
while A <> B do
if A > B then A := A - B else B := B - A;
NOD := A;
end;
begin
var a: Array of integer := (16, 32, 40, 64, 80, 128);
var n := a[low(a)];
for var i := low(a) to high(a) do
pNOD(n, a[i], n);
Writeln(n);
end.
4,8
(31 оценок)
Это интересно:
Д
Дом-и-сад
27.05.2023
Основы электротехники: Как разрядить конденсатор...
О
Образование-и-коммуникации
27.07.2021
Школьники на старт: как завести друзей в новой школе?...
С
Семейная-жизнь
20.04.2021
Как преодолеть контроль со стороны супруга...
Д
Дом-и-сад
09.03.2021
Как очистить белую кожу: лучшие способы и рекомендации...
Т
Транспорт
03.10.2021
Как настроить зеркала заднего вида и уменьшить мертвые зоны...
М
Мир-работы
20.05.2020
Как стать идеальной няней: советы по прохождению собеседования...
К
Компьютеры-и-электроника
26.06.2020
Незаметно и просто: как скрыть сообщение Facebook?...
К
Кулинария-и-гостеприимство
20.03.2022
Секретный ингредиент коктейля «Арнольд Палмер» и его рецепт...
Ф
Финансы-и-бизнес
10.02.2022
Стартуем бизнес по схеме дропшиппинга: советы и рекомендации...
К
Компьютеры-и-электроника
01.06.2022
Как поднять свой боевой уровень в RuneScape: советы и рекомендации...
Новые ответы от MOGZ: Информатика
нурик283
11.09.2020
Графический представления числовых данных – это ...
Denkuzo176
15.02.2022
Какой расширение у файлов, созданных в программе Sketch Up Маке?...
seregatarlykov
06.05.2023
Визначає величину символів тексту...
takhtarkina
03.07.2022
З якими основними об єктами можна працювати в середовищі табличного процесора...
senyaavdeev07
06.06.2022
поясніть що таке електронна таблиця. Чим електронні таблиці відрізняються від друкованих, наприклад, табеля успішності...
данила307
15.02.2021
Дан массив в(20). заполните его случайными числами в интервале [0,100]. отсортируйте по убыванию и выведите массив на экран. для паскаля...
АбрамоваАлесия1
04.10.2022
Яку умову описує команда пропуск в інформатиці...
Dabbnathion
04.10.2020
Көмек керек, көмектесіңіздерші өтініш...
wwwlavor
02.12.2020
2.Ваня, Петя, Саша и Коля носят фамилии, начинающиеся на буквы В, П, С и К. Известно, что: 1. Ваня и С. – отличники 2. Петя и В. – троечники 3. В. ростом выше, чем...
kristushaushakova
07.10.2021
Информатика 8 класс Дана часть таблицы «Количество товара на складе». 1 Товар Количество 2 Табурет 258 3 Садовая мебель 103 4 Шкафы 57 5 Вешалки 319 6 Ковры 275...
MOGZ ответил
Через розчин арґентум нітрату протягом 2 год пропустили електричний...
В каком предложении не с выделенным словами пишется раздельно?...
Охарактеризувати терміни: А) суб’єкт правопорушення Б) об’єкт...
очень надо очень надо!! >...
Расставьте знаки в тексте Рассмотрим к примеру правило «следует...
Обчислить выбравшись ручные порядок обчислення 25.78 - 4 цилых...
Массовая доля атомов водорода+алюминий, атомов водорода и кислорода...
За 5кг цукерок і 4кг печива заплатили 60грн. Скільки коштує 1...
Среднее арифметическое -6,8 и 1,6...
Сколько прямоугольников в пятёрке...
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ
Оформи подписку
О НАС
О нас
Блог
Условия пользования
Авторское право
Политика конфиденциальности
Предпочтения cookie-файлов
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
App
Вход
Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ