паскаль составьте программку определяющую какие из 4 заданных чисел делятся на
Паскаль составьте программку определяющую какие из 4 данных чисел делятся на 5
Задать свой вопрос
Artem Perimov
здесь надобно div mod использовать, написать либо теснее понятно?
Милена Искамжи
Написать))
Варвара
щас напишу
2 ответа
Василий Клеопин
Var a,b,c,d:integer;
Begin
Write('Введите 4числа: '); readln(a,b,c,d);
if (a mod 5 = 0 ) then writeln(a,' делится на 5 без остатка');
if (b mod 5 = 0 ) then writeln(b,' делится на 5 без остатка');
if (c mod 5 = 0 ) then writeln(c,' делится на 5 без остатка');
if (d mod 5 = 0 ) then writeln(d,' делится на 5 без остатка');
end.
Begin
Write('Введите 4числа: '); readln(a,b,c,d);
if (a mod 5 = 0 ) then writeln(a,' делится на 5 без остатка');
if (b mod 5 = 0 ) then writeln(b,' делится на 5 без остатка');
if (c mod 5 = 0 ) then writeln(c,' делится на 5 без остатка');
if (d mod 5 = 0 ) then writeln(d,' делится на 5 без остатка');
end.
Михаил Сухомясов
то что нужно?
Ральдина
Алина
можно написать через case, наверняка это было бы даже проще
Диана
да, спасибо))
Арина Сухаркова
program x;
uses crt;
var
mas: array[1..4] of integer;
i:integer;
begin
clrscr;
writeln('Введите 4 числа '') ;
for i:=1 to 4 do
begin
readln(mas[i]);
end;
for i:=1 to 4 do
if(mas[i] mod 5=0)
then
begin
writeln('Числа без остатка ', mas[i]);
endelse if (mas[i] mod 5lt;gt;0) then
writeln('Числа с остатком ', mas[i]) ;
readln;
end.
uses crt;
var
mas: array[1..4] of integer;
i:integer;
begin
clrscr;
writeln('Введите 4 числа '') ;
for i:=1 to 4 do
begin
readln(mas[i]);
end;
for i:=1 to 4 do
if(mas[i] mod 5=0)
then
begin
writeln('Числа без остатка ', mas[i]);
endelse if (mas[i] mod 5lt;gt;0) then
writeln('Числа с остатком ', mas[i]) ;
readln;
end.
Яговдюк
Вовка
Размышляю она не сможет объяснить учителю массивы :)
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
"Три толстяка" Называли эту площадь Площадью Звезды последующей причине.
Русский язык.
на одной грядке коротышки посадили 3 ряда морковок по 8 штук
Разные вопросы.
эссе на тему какое образование дается в каждой семье
Қазақ тiлi.
Put the verb in brackets into the Present Indefinite.
1The Volga ,
Английский язык.
Сколько стоит коктейль молочный? Точную цену надо?
Математика.
Составить рассказ Из чего складывался культ монарха помазанника Божьего?
История.
задание экономиоти
Рассмотри ситуацию: человек живёт на Крайнем Се-вере. С помощью каких
Экономика.
Человек живет на Крайнем Севере. С помощью каких благ удовлетворяются потребности
Экономика.
там лежат три яйца.у дома рос клен.Это гнездо сойки.на клёне гнездо
Русский язык.
Тыныштық күйіндегі карусель 35 с-та 3,0 рад/с бұрыштық жылдамдықпен үдей қозғалады.
Разные вопросы.
Облако тегов