Составить программу есть ли среди чисел x y z числа кратные 5. если такие числа имеются то увеличить их на 1
Нет комментариев
Ответы
Гость Не указано на каком языке программирования нужно, поэтому напишу уж на Паскале. Всё сделал так, чтобы было понятно, хоть и не так компактно.
Var x, y, z:integer;
Begin
Write('Введите числа X, Y и Z^: ');
Readln(x, y, z);
If x mod 5=0 then x:=x+1;
If y mod 5=0 then y:=y+1;
If z mod 5=0 then z:=z+1;
Writeln('Полученные в итоге числа(X, Y, Z):', x, ', ', y, ', ', z);
End.
7 комментария:
Почему-то слетели строчки. Думаю, разберётесь, где переносить в другую строку. Если получится, то исправлю.
Спасибо! На паскале
Помогите еще с одной задачей пожалуйста
там с системой
Создайте новый вопрос и укажите там условие. Посмотрю, может смогу вспомнить Паскаль.
создала уже
заранее огромное спасибо
Почему-то слетели строчки. Думаю, разберётесь, где переносить в другую строку. Если получится, то исправлю.
Спасибо! На паскале
Помогите еще с одной задачей пожалуйста
там с системой
Создайте новый вопрос и укажите там условие. Посмотрю, может смогу вспомнить Паскаль.
создала уже
заранее огромное спасибо Похожие вопросы
Список предметов
