Нажмите текстовый элемент, который<span>требуется </span>редактировать<span>, и начните ввод. Новый </span>текст<span> соответствует исходным шрифтам в отсканированном </span>
Program ABC;uses crt;const a=168;b=175;c=169;Beginclrscr;if a=b then Beginif b=c then writeln(ludi odinakovogo rosta);end;else writeln(ludi ne odinaciovogo rosta);end;
var fi,u: real;
h,m: word;
begin
repeat
write(' Угол часовой стрелки от 0 до ',2*pi:0:2,' fi=');
readln(fi);
until(fi>=0)and(fi<=2*pi);
m:=trunc(fi*2*180/pi);
h:=m div 60;
writeln('Часов=',h);
m:=m mod 60;
writeln('Минут=',m);
u:=m*6*pi/180;
write('Угол минутной стрелки=',u:0:2,' rad');
readln
end.
Если тебе надо вывести ещё на экран в паскале, то необходимо её записать в одинарных ковычках ' } ' чтобы её напечатать, при английской раскладке клавиатуры нажми шифт + Ъ или шифт + Х
пример вывода скобки на экран: Var a:integer;
Begin
Writeln('{ }');
end.
Рассматриваются значения массива с индексами от 3 до 7.
Если его значение меньше пяти, то прибавляем к общей сумме, изначально равной 0.
Просмотрим все значения (от 3 до 7):
R[3] = -5 < 5. Сумма = 0 + R[3] = 0 + (-5) = -5
R[4] = 6 > 5. Условие не выполняется.
R[5] = 14 > 5. Условие не выполняется.
R[6] = 9 > 5. Условие не выполняется.
R[7] = 0 < 5. Сумма = -5 + R[7] = -5 + 0 = -5
R[8] не входит в рассматриваемую часть (цикл от 3 до 7).
Ответ: -5.