Регистрация
HeliaK
03.02.2020 20:36
Информатика
Есть ответ 👍

Xпринадлежит (-1; 11] паскаль нужно через if написатьт программу x принадлежит и x не принадлежит

169
249
Посмотреть ответы 2

Ответы на вопрос:

sofia308
sofia308
4,6(52 оценок)
Var   x : real; begin   read (x);   if (x > -1) and (x < = 11) then write ('принадлежит') else write ('не принадлежит'); end.
semenovdima75
semenovdima75
4,5(56 оценок)
//pascalabc.net (версия 3.1, сборка 1198 от 11.03.2016) var i,n: integer; begin   readln(n);   for i: =1 to n do writeln(i,'*',i,' = ',i*i); end.

Популярно: Информатика