Информатика, опубликовано 2018-08-22 19:01:15 by Гость
Определить делится ли на 5 введенное число x . если делится, то другому числу y присвоить 100 в противном случае у сделать равным 500 нужна программа на паскаль
Ответ оставил Гость
Var x,y: integer;
begin
write(Введите х );
readln(x);
if (x mod 5 0) then y:=500 else y:=100;
writeln(y=,y);
end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на