Составить программу:даны 3 целых числа x,y,z вывести на экран те из них которые являются кратными 5

Знания

Информатика

1 ответ:

Xander [7]3 года назад

0 0

Var x,y,z:intefer;
begin
writeln('Vvedite 3 chisla');
readln(x,y,z);
if (x mod5=0) then writeln(x);
if (y mod5=0) then writeln(y);
if (z mod5=0) then writeln(z);
end.

Читайте также

Приведите примеры линейного алгоритма .

Медорен [164]

Var
x:integer;
begin
writeln('x=');
readln(x);
writeln('вы ввели:',x);
x:=0;
writeln('произошла замена. Теперь x=',x);
end.

0 0

3 года назад

Найти объединение, пересечение, разность и симметрическую разность множеств А и В, если: а) А={а Ι а∈[-7; 1)}, В={b Ι b∈[-3,4)};

witalina [508]

Вычислите сумму чисел x и y+при x = 0167+ y = 0//0/0001-Результат представьте в десятичной системе счисления-

0 0

4 года назад

Сколько места надо выделить для хранения 9 страниц книги, если на каждой странице помещаются 34 строки по 64 символа в каждой?

12mm

1)64*34=2176(симв.) -на одной странице
2)2176*9=19584(м) -столько места надо выделить

0 0

4 года назад

Найти max{min{a, b}, min{c, d}}. Напишите пожалуйста программу в VBA

aksha [492]

Sub M1()
MsgBox (Application.Max( _
Application.Min(InputBox("Введите a"), _
InputBox("Введите b")), _
Application.Min(InputBox("Введите c"), _
InputBox("Введите d")) _
))

End Sub

0 0

4 года назад

Выполните операцию умножения над двоичными числами: а)1011*11;объясните пожалуйста)

калмык 08

1011
 11
 1011
1011
100001

0 0

4 года назад