var
i, s: byte;
begin
<em>for i := 2 to 10 do</em>
<em> s += i;</em>
writeln(s);
<span>end.</span>
1)
Var x:real;
Begin
Write('x = ');ReadLn(x);
if x<-3 then Write('f(',x,') = ',x*x+sqrt(x+4))
else if x<0 then Write('f(',x,') = ',x+10)
else Write('f(',x,') = ',1/sqrt(x))
End.
2)
Var
A,B:integer;
S:real;
Begin
Write('A = ');
ReadLn(A);
Write('B = ');
ReadLn(B);
S:=0;
For B:= A to B do
if B mod 2 <> 0 then S:=S+B;
WriteLn('S = ',S);
End.
3)
Var
A,k:integer;
Begin
k:=0;
For A:= 100 to 999 do
if ((A div 100) mod 2 = 0)and(((A div 10) mod 10) mod 2 = 0)and((A mod 10) mod 2 = 0)
then k:=k+1;
WriteLn('k = ',k)
End.
Var
A,B:real;
Begin
WriteLn('Введите два числа');
ReadLn(A,B);
WriteLn('Сумма данных чисел равна: ',A+B)
End.
Пример:
Введите два числа
3.14159 2.71828
Сумма данных чисел равна: 5.85987
У всех ли людей всегда бывает пять пальцев?
Уникальны ли отпечатки пальцев каждого человека?
сколько фаланг на каждом пальце?
ноготь - это роговица?
почему некоторые люди умеют странно выгибать пальцы?