Предмет: Информатика,
автор: maks4659
Помогите пожалуйста! 8 класс Паскаль. Два задания!
Приложения:
Ответы
Автор ответа:
0
Ответ:
Объяснение:
x не кратно 4 -> x mod 4 <> 0
-5 < x < -2 -> (x > -5) and (x < -2)
x прин [-1;5] -> (x >= -1) and (x <= 5)
2 задание
ну тут просто нужно проверить, чтобы разность N2-N1 = 3 и N3-N2 = 3
maks4659:
2 задание можно пожалуйста подробно написать программу?
да пожалуйста program task;
{$APPTYPE Console} // äëÿ Delphi
var
n1,n2,n3: integer;
begin
Readln(n1,n2,n3);
if (n2-n1=3) and (n3-n2=3) then
Writeln('yes')
else
Writeln('no');
Readln;
end.
{$APPTYPE Console} // äëÿ Delphi
var
n1,n2,n3: integer;
begin
Readln(n1,n2,n3);
if (n2-n1=3) and (n3-n2=3) then
Writeln('yes')
else
Writeln('no');
Readln;
end.
Интересные вопросы
Предмет: Французский язык,
автор: Аноним
Предмет: Русский язык,
автор: bsbdhej
Предмет: Математика,
автор: denisukvasil0
Предмет: Математика,
автор: rogozinanadya