Пусть правильный ответ 5
Var a:integer;
Begin
A:=0;
While a<>5 do Readln(a)
<Остальная часть программы>
//Pascal ABC.NET v3.1 сборка 1172
Var
s:string;
i,k:integer;
begin
readln(s);
for i:=1 to length(s) do
if s[i]<>' ' then inc(k);
writeln(k);
end.
<span>Пример ввода:
</span><span>Очень много мячей
Пример вывода:
15
</span>
<u>Задание</u><u> </u><u>1</u>
1). 320-200 = 120
2). 120+50 = 170
Ответ: <em>170</em>
<u>Задание</u><u> </u><u>2</u>
1). 427-222 = 205
2). 405+50 = 255
Ответ: <em>2</em><em>55</em>
<u>Задание</u><u> </u><u>3</u>
1). 245+235 = 440
2). 440-120 = 360
Ответ: <em>360</em>
import math
def a(): # задача А
x = float(input('x = '))
y = float(input('y = '))
if x <= 2 and y <= x and 4 <= (x * x + y * y):
print('Yes!')
else:
print('No!')
a()
def b(): # задача Б
x = float(input('x = '))
y = float(input('y = '))
if (x >= 0) and (x <= math.pi) and (y <= math.sin(x)) and (y <= 0.5):
print('Yes!')
else:
print('No!')
b()
def c(): # задача В
x = float(input('x = '))
y = float(input('y = '))
if (y <= (2 - x * x)) and ((y >= x) or (x >= 0)):
print('Yes!')
else:
print('No!')
c()