Предмет: Информатика, автор: sakarimnazerke

Дано z и x. Найти y. Известно, что y = x*z/x. Например: если пишем 1 и 2 , то программа выводит 1.
Напишите программму пожалуйста


DarkTatarin: Pascal: s: Integer; ReadLn(s);
sakarimnazerke: ага
sakarimnazerke: да Integer, readln , writeln
sakarimnazerke: спасибо что помагаешь
sakarimnazerke: пожалуйста по скореее
sakarimnazerke: просто срочно надо здавать учителю
sakarimnazerke: иначе поставит 2
sakarimnazerke: ребяяят
sakarimnazerke: я отомже
sakarimnazerke: Учитель проверел ну это не правильно

Ответы

Автор ответа: DarkTatarin
1

program test;

var z, x: Integer;

y: real;

begin

Readln(x, z);

y := x * z / x;

Writeln(y);

end.


sakarimnazerke: блин это не правильно
sakarimnazerke: мне сказал учитель
sakarimnazerke: у меня есть еще одна попытка
sakarimnazerke: помоги пожалуйста
DarkTatarin: Не, здесь всё верно. Если ввести 1 и 2, то выходит 1
DarkTatarin: А y: Real, потому что результат от деления может быть вещественным
sakarimnazerke: ага
DarkTatarin: Спроси, где ошибка. Вежливо, с "пожалуйста". Скажи, что программа выводит правильный ответ
DarkTatarin: Перепроверь условие задачи, точно всё верно?
DarkTatarin: Ну как?
Похожие вопросы
Предмет: Русский язык, автор: раша6