Как решить задание по информатике y:=3 while y>=5 do y:=y+7; write (y) ;

Задание 1. Даны высказывания: А = Я выполнил домашнее задание по информатике. В = Я получил оценку "5". С = Я получил оценку "2". D = Я буду наказан.

Найдите ошибку в программе Pascal Задание: Дано:a, b, c, d. Найти: среднее значение чисел принадлежащих интервалу (1; 30) и кратных 3.

Переделать задачи для for 1) q:=5; d:=1; while q>0 do begin d:=d+q; dec (q) end; writeln (q,' ', d) ; 2) q:=5; d:=1; while q>0 do begin dec (q) ; d:=d+q end; writeln (q,' ', d) ; 3) q:=5; d:=1; while q>0 do dec (q) ; d:=d+q; writeln (q,' ', d) ;

Установите взаимнооднозначное соотношение: 1) x:=1; A) Тело цикла не выполнится ни разу while x

Сколько раз выполнится тело цикла? For x:=2 to 7do write (' * ') ; For x:=3 to 3do write (' * ') ; For x:=5 to 2do write (' * ') ; For x:=5downto 5do write (' * ') ; For x:=10 downto 4do write (' * ') ; For x:=1 downto 4do write (' * ') ;