Var a,s,p:real;
begin
a:=8.5;
s:=0;
while a<=40.9+0.005 do
begin
s:=s+a;
a:=a+0.1;
end;
writeln('s = ',s:6:2);
p:=1;
a:=1;
while a<=3+0.005 do
begin
p:=p*a;
a:=a+0.25;
end;
writeln('p = ',p:6:2);
if s>p
then writeln('Сумма больше')
else writeln('Произведение больше');
end.
Результат:
s = 8027.50
p = 304.54
Сумма больше
1- 5 бит
2- 200 бит
3- 128 сим
4- 0.1875 Кб
5- 4 и 8
Не(первая буква гласная) или не(последняя буква согласная) = 0
Отрицание того, что первая буква гласная означает, что первая буква согласная. То же самое с отрицанием, что последняя буква согласная, отрицание этого означает, что последняя буква гласная:
(первая буква согласная) или (последняя буква гласная) = 0
Инвертируем это выражение, чтобы искать результат не для лжи, а для истины:
не((первая буква согласная) или (последняя буква гласная)) = 1
Раскроем скобки по закону де Моргана:
(первая буква гласная) и (последняя буква согласная) = 1
Под это условие подходит ответ 4) Ярослав. Первая буква гласная (Я) и последняя буква согласная (В).
Ответ: 4) Ярослав.
Над найти расстояние от точки до центра окружности. Прще использовать квадрат расстояния. Если он равен квадрату радиуса, то точка на окружности. Если меньше, то внутри круга. Больше, то вне круга.
var xm,ym,xc,yc,r:real;
begin
writeln('Введите координаты точки Xm, Ym');
readln(xm,ym);
writeln('Введите координаты центра окружности Xc, Yc');
readln(xc,yc);
writeln('Введите радиус окружности R');
readln(r);
if sqr(r)=sqr(xm-xc)+sqr(ym-yc) then writeln ('На окружности') else
if sqr(r)>sqr(xm-xc)+sqr(ym-yc) then writeln ('Внутри круга') else
writeln('Снаружи круга');
end.
Тест №1
Введите координаты точки Xm, Ym
4 2
Введите координаты центра окружности Xc, Yc
2 2
Введите радиус окружности R
2
На окружности
Тест №2
Введите координаты точки Xm, Ym
3 1
Введите координаты центра окружности Xc, Yc
2 2
Введите радиус окружности R
2
Внутри круга
Тест №3
Введите координаты точки Xm, Ym
-1 -3
Введите координаты центра окружности Xc, Yc
2 2
Введите радиус окружности R
2
Снаружи круга
1 + 1 (1й раз) а > 3? нет
2 + 1 (2й раз) a > 3? нет
3 + 1 (3й раз), а > 3? да,
но однако третий раз тело выполнилось, потому что это цикл с постусловием. итого три раза выполнится тело цикла.
a = 4
b = 1, потому что мы его не меняли после инициализации, хотя использовали его для других целей
s = 5