Задания.ру
Анонимно
19 часов назад

Cоставте программу , которая выводит на экран  нечётные числа от 1 до 50  в порядке убывания 

Ответ

Анонимно
var
 i:integer;

begin
 for i:=50 downto 1 do
  if i mod 2 <> 0 then
   write(i,' ');
end.

Новые вопросы по Информатике

Сколько Гбайт содержится в 2 в 19 степени 19 Кбайт информации
10 - 11 классы
12 часов назад
Что будет выведено на экран после выполнения следующих операторов, если с клавиатуры были введены числа 4,5,6,8,9,7,2,1: readln (a, b, c, a, c, b, a); writeln (a, b, c);
5 - 9 классы
12 часов назад
К какому из перечисленных множеств можно отнести следующее подмножество компьютерных объектов: процессор, оперативная память, жесткий диск?а) устройство б) файлыс) связид) контейнеры
5 - 9 классы
12 часов назад
Файл размером 6Мбайт передаётся через некоторое соединение за 2 минуты 30 секунд. Определите размер файла(в Мбайтах), который можно передать через это же соединение за 50 секунд.
5 - 9 классы
12 часов назад
Что пропущено в программе? program HelloWorld; begin writeln(‘x, y=?’); readln ( x, y); x: = x+y; writeln (‘x = ‘ , x); end. 1) ввод данных 2)описание переменных 3)вывод результат...
5 - 9 классы
12 часов назад