Даны четыре целых числа?

Railean 3 апр. 2020 г., 14:14:27

/ / PascalABC.

NET (версия 3.

1, сборка 1198 от 11.

03. 2016)

begin var s : = 0 ; var a : = ReadInteger('Введите 1 число') ; var b : = ReadInteger('Введите 2 число') ; var c : = ReadInteger('Введите 3 число') ; var d : = ReadInteger('Введите 4 число') ; if a mod 3 = 0 then s : = s + a ; if b mod 3 = 0 then s : = s + b ; if c mod 3 = 0 then s : = s + c ; if d mod 3 = 0 then s : = s + d ; println('Сумма кратных 3 = ', s) ;

end.

Тестовое решение :

Введите 1 число 9

Введите 2 число 16

Введите 3 число 18

Введите 4 число 0

Сумма кратных 3 = 27.

Keyyt 15 нояб. 2020 г., 18:29:11 | 10 - 11 классы

Даю 15 баллов?

Даю 15 баллов!

Напишите программу в паскале Дано целое трехзначное число N и целое число k.

Написать программу, подсчитывающую сумму тех цифр числа N, которые больше k.

Лерасингх 25 мая 2020 г., 18:55:30 | 5 - 9 классы

Дано четыре вещественных числа найти сумму тех чисел которые больше пяти на Паскаль?

Дано четыре вещественных числа найти сумму тех чисел которые больше пяти на Паскаль.

Ксюска 6 июн. 2020 г., 00:32:29 | 5 - 9 классы

Вычислите сумму чисел, кратных трем из 10 введенных с клавиатуры?

Вычислите сумму чисел, кратных трем из 10 введенных с клавиатуры.

Напишите, пожалуйста программу (оператор условия и оператор цикла со счетчиком).

ПоЗитИв14 15 нояб. 2020 г., 02:50:59 | 10 - 11 классы

Даны четыре целых числа?

Даны четыре целых числа.

Найти сумму тех из них, которые кратны трем и больше пяти.

Оператор цикла не использовать(На Паскале).

Иванчик1234 13 июл. 2020 г., 19:52:12 | 5 - 9 классы

Паскаль?

Паскаль.

Даны три целых числа.

Определите сумму тех из них, которые не кратны трём.

Можно код?

Очень нужно.

Настя17092001 6 апр. 2020 г., 02:58:44 | 5 - 9 классы

СРОЧНОООО?

СРОЧНОООО!

ПОМОГИТЕ ПОЖАЛУЙСТА НАПИСАТЬ ПРОГРАММУ НА ПАСКАЛЕ!

Дано четырехзначное число.

Определить кратно ли четырем произведение его цифр.

Akusha246 16 мар. 2020 г., 04:45:31 | 10 - 11 классы

Найти сумму всех трёхзначных чисел, кратных 77?

Найти сумму всех трёхзначных чисел, кратных 77.

Паскаль.

(использовать цикл while).

Бeла 28 сент. 2020 г., 10:39:50 | 10 - 11 классы

С# Решите задачу тремя способами - используя операторы цикла while, do while и for?

С# Решите задачу тремя способами - используя операторы цикла while, do while и for.

Вывести на экран : все целые числа из диапазона от А до В, кратные трем (А< ; = В) ;

Lanabuklova 28 нояб. 2020 г., 16:38:07 | 10 - 11 классы

Решить в паскале : дано двузначное число, определить : а) кратно ли 3 сумма его цифр ; б) кратно ли сумма его цифр числу a?

Решить в паскале : дано двузначное число, определить : а) кратно ли 3 сумма его цифр ; б) кратно ли сумма его цифр числу a.

Маришко1 28 дек. 2020 г., 22:17:48 | 10 - 11 классы

Дано двузначное число?

Дано двузначное число.

Определить, кратна ли трем сумма его цифр?

( Pascal).