Top.Mail.Ru
Ответы
Аватар пользователя
18лет
Изменено
Аватар пользователя
Аватар пользователя
Аватар пользователя
Информационные технологии
+2

Помогите решить две циклических задач (PASCAL) по информатике. Срочно нужно!!!!!!

По дате
По рейтингу
Аватар пользователя
Новичок
18лет

read(x);
read(y);
read(z);
if (x=y) and (y=z) then
begin
writeln(x);
writeln(y);
writeln(z);
end;
if (y=z) and (x<>y) then
begin
writeln(-x);
writeln(-y);
writeln(-z);
end;
else
begin
x:=2; y:=x; z:=y;
for i:=1 to 3 do
writeln(x);
end;

Аватар пользователя
Ученик
18лет

Да ты реально - ленивый! Вот правельный ответ выше! А с чей тетради копировал? Экзамен что ли?

Аватар пользователя
Ученик
18лет

ты на не веселый паренек а ленивый, помочь эт по твоему как? за тя все сделать что ли? тут работы от силы на 15 минут! делай сам халявщик!

Источник: Я
Аватар пользователя
Знаток
18лет

секунду подожди....щас прийду