2 6 9 без
20 18 21 5 1 труда
15 6 не
3 29 13 16 3 10 26 30 выловишь
10 и
18 29 2 12 21 рыбку
10 9 из
17 18 21 5 1 пруда
Var w,a,b,c,x:real;
begin
x:=2.8;
b:=-0.3;
c:=4;
writeline ("Input X");
readline (x);
if (x<1.2) then w:=a*x*x+b*x+c;
if (x<1.2) then w:=a*(Pow (x),2) + b*x+c; // Аналогичен предыдущей строке, только там умножали х на х, а тут возводим через функцию pow.
if (x=1.2) then w:= a/x + (Pow (x),2)+1;
if (x>1.2) then w:=(a+b*x)/((Pow (x),2)+ 1);
writeline ("Your answer ", w);
end.
Var c, ans, n, a, i, sum:integer;
begin
read(n);
read(c);
for i = 1 to n do
begin
read(a);
sum := sum+a;
if (sum >= c) then begin
ans := i;
break;
end;
end;
write(ans);
end.
Program OddNumeric;
var
n, i: integer;
a: array [1..3] of byte;
b: boolean;
begin
Write('Введите трехзначное число: ');
Readln(n);
a[1]:=n div 100; {1 цифра сотен}
a[2]:=(n div 10) mod 10; {2 цифра десятков}
a[3]:=n mod 10; {3 цифра количество единиц}
b:=false;
for i:=1 to 3 do
begin
if (a[i] mod 2)=0 then
b:=true;
end;
if b then
Writeln('В этом числе есть четные цифры')
else
Writeln('В этом числе нет четных цифр');
end.
<span>Фонетика-это раздел науки о <span>языке, в котором изучаются звуки и их чередования, а также ударение, интонация, слогораздел.</span></span>