Работа в паскале.
5-9 класс
|
Даны три переменные: x, y, z. Если их значения делятся без остатка на 4, то удвоить их; в противном случае заменить значение переменной на противоположное.
var x,y,z:integer;
begin
write('Введите x, y, z: ');
readln(x,y,z);
if (x mod 4=0) and (y mod 4=0) and (z mod 4=0) then
begin
x:=x*2;
y:=y*2;
z:=z*2
end
else
begin
x:=-x;
y:=-y;
z:=-z
end;
writeln(x,' ',y,' ',z)
end.
Другие вопросы из категории
Числовой ряд из 10 чисел задается
генератором случайных чисел в диапазоне от 1 до 20. Найти сумму чисел,кратных 4
символов в каждой строке, а для храниния одного символа требуется 8 битов.
Заранее спасибо!
Читайте также
полученном массиве найти сумму элементов,имеющих чётный индекс.Запишите подробно всю прграмму...Прошу.Работаем с Паскалем(((
МЫ РАБОТАЕМ С ПАСКАЛЕМ(:
Работа с Паскалем.
Найти минимальное и максимальное значение из четных чисел и записать их в файл output.txt
элементов (работа в паскаль). Я просто тему пропустила, а объяснять не хотят :(
Написать программу, которая выводит на экран сообщение, в какую четверть координатной плоскости попала точка с заданными координатами. Координаты точки вводятся с клавиатуры.
Например, для Х=4, Y=6 она должна ввести "Точка лежит в 1 четверти".