Var
A:integer;
P:real;
Begin
P:=1;
For A:= 100 to 620 do
if A mod 23 = 0 then P:=P*A;
WriteLn('P = ',P);
End.
Результат работы программы:
P = 1.5255279798308E+55
Var
A:integer;
P:real;
Begin
P:=1;
For A:= 11 downto 6 do
P:=P*A;
WriteLn('P = ',P);
End.
Результат работы программы:
P = 332640
Свою дату рождения ты не скинул,так что держи мою :
05.09.1998 = 101.1001.111111001110
Можешь скинуть в комментарии свою дату,я тоже переведу
1 объект который управляет
2объект га который направлено упоавляющее действие
3 результат
объект управления
1. Запись НЕ ВЕРНА.
В операторе цикла <span>for i:= 1 to sqrt(k) do значение, возвращаемое функцией sqrt имеет тип real, а в этом операторе все значения должны приводиться к целочисленному типу. Автоматическое приведение типа real к integer в языке Паскаль невозможно, его нужно осуществлять явно при помощи функции Trunc() или Round().
2. НИ РАЗУ И НИЧЕГО НЕ БУДЕТ НАПЕЧАТАНО. Программа не откомпилируется из-за ошибок, которых в операторе </span><span>if k
write(k); сразу две.
Первая - после k пропущено ключевое слово then.
Вторая состоит в том, что после if должно следовать логическое выражение, а k имеет тип char, но не boolean.
3. ОДИН РАЗ, БУДЕТ ВЫВЕДЕНО True.
В цикле должны быть значения порядкового типа и тип boolean этому требованию удовлетворяет. При входе в цикл f=false, цикл выполняется, затем f=true и цикл завершается. При однократном проходе по циклу выполнится оператор </span><span>g:= not f и g получит значение true. Это значение и будет выведено.</span>
var
x, y: real;
begin
write ('x='); readln(x);
write ('y='); readln(y);
if (sqr(x)+sqr(y)<=1) and (x*y<=0) then
writeln ('точка принадлежит данной области')
else
writeln ('точка не принадлежит данной области');
end.