PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018
Внимание! Если программа не работает, обновите версию!

begin
var n:=ReadInteger('Какое число получилось?');
Writeln('Вы загадали число ',n-10)
end.

0 0

4 года назад

В лототроне по порядку лежат шары с номерами от 100 до 200. Он выбрасывает каждый седьмой. Составьте алгоритм для определения но

andronh

Var
i:integer;
begin
i:=100;
while (i+7<200) do begin
inc(i,7);
write(i,' ');
end;
end.

0 0

5 лет назад

Что определяет для массива X[1..n] следующий алгоритм помогите плиз)))))))))) P:= 0; For k:= n downto 1 doIf X[k] <T then P:=

Temka86 [1]

Правильный ответ: 3

0 0

3 года назад

2. 1258+1012*2А16-1418

окссана [372]

Конкретно напиши правильно

0 0

4 года назад