помогите доделать задачку по паскале - есть ответ

marina22, 73 просмотра

-2

program Ex26;
uses crt;
var result:integer;
x, y, z,d :integer;

begin

for x:=1 to 9 do
for y:=0 to 9 do
for z:=0 to 9 do
for d := 0 to 9 do
begin
writeln(x, y, z, d);
end;

readln;
end.

и мне еще нада найти сум у какая делится на 5

Примечание:
да вівести все чысла какие дилятся на 5

Примечание:
мне нада вывести на екран все 4 значные чысла сума каторых делиться на 5

Ответы:

mihalko

Очень красноречиво описано задание. Я ничего не понял, кроме того, что прога выводит четырехзначные числа по порядку.
Что еще надо? Вывести кратные пяти?

Антон_NeHaLeM

лень читать, и разбираться, но почитай про mod.

Без имени

var i: intejer;
begin
for i:=1000 to 9999 do
begin
if (i mod 10 + i mod 100 div 10 + i mod 1000 div 10 + i div 10) mod 5 = 0 then
writeln(i);
end.

14 лет назад

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.