Ответ 4510
s=0
for i in 15..25
s+= i**2
end
p s
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>
1) 1 символ равен 1 байту
2) 4*50*80=15.625Кбайт
Линейкой измерь 5 литровый сосуд расчерти его на 5 одинаковых частей а 3 литровый на 3 набери воду в 5 литровом на 4 деления а в 3 литровом на 2 деления сойдёт?
Uses crt;
Var
i,a,b,pr:integer;
Begin
Clrscr;
Pr:=1;
Repeat
Writeln('Введите числа A=1, b<=10'); readln(a,b);
Until (a=1) and (b<=10);
For i:=a to b do
Pr:=pr*i;
Writeln('Произведение числ от ',a,' до ',b,' равно ',pr);
Readkey;
End.