Домашние задания: Информатика

Помогите с информатикой...

Запишите код программы на языке
программирования Pascal. Программа будет называться Ex_1,
константы отсутствуют, для написания программы
используется два целых числа x, y. Действия в программе
будет одно, переменной x необходимо присвоить тройную
сумму числа y.
Олег Снегирёв
Олег Снегирёв
51
Program Ex_1;
var x, y : integer;
begin
Write (' y = '); ReadLn (y);
x := y + y + y;
WriteLn ( ' x = ', x);
end.
Юрa Семенок
Юрa Семенок
73 229
Лучший ответ
Наиболее простой вариант Вам уже написАл Владимир Втюрин, а вот - более профессиональный вариант:
 Program Ex_1; 

uses crt; 

var x, y: integer; 

begin 

clrscr; 

writeln ('Введите с клавиатуры значения переменных x и y (только числа (целые числа)). После ввода значения каждой из переменных нажимайте клавишу Enter.'); 

write ('Введите значение переменной x: x='); 

readln (x); 

write ('Введите значение переменной y: y='); 

readln (y); 

x:=y+y+y; 

writeln ('Результат: x=', x, '; y=', y); 

write ('Программа завершена. Для выхода нажмите клавишу Enter.'); 

readkey; 

end.
Или вот ещё 1 вариант:
 Program Ex_1;  

uses crt;  

var x, y: integer;  

begin  

clrscr;  

writeln ('Введите с клавиатуры значения переменных x и y (только числа (целые числа)). После ввода значения каждой из переменных нажимайте клавишу Enter.');  

write ('Введите значение переменной x: x=');  

readln (x);  

write ('Введите значение переменной y: y=');  

readln (y);  

writeln ('Результат: x=', y+y+y, '; y=', y);  

write ('Программа завершена. Для выхода нажмите клавишу Enter.');  

readkey;  

end.
А если без вывода на экран результата, то уберите write/writeln после x:=y+y+y (что в моей программе, что в программе Владимира Втюрина).
Владимир Скабелкин
Владимир Скабелкин
43 559
Лилия Максимова Смысл вводить значение x?

Похожие вопросы