Привет, как настроение? Меня зовут Алина, мне 18 лет. Хочу познакомиться с хорошим парнем..
Если тебе это интересно, напиши мне тут - http://onetimesex.com
Мой ник - KissKa
Задание 1:
Var s,i,n : integer;
z: array [1..100] of integer;
Beginfor
i:= 1 to 8 do
Read (z[i]);
end.
Задание 2:
Var s,i,n : integer;
z: array [1..100] of integer;
BeginRead(n);
for i:= 1 to n do
Read (z[i]);
for i:= 1 to n do
begin
if z[i]<0 then s:= sqr(z[i]);
Write(s);
end;
end.
Задание 3:
Var s,i,n : integer;
z: array [1..100] of integer;
Begin
Read(n);
for i:= 1 to n do
Read (z[i]);
s:=0;
for i:= 1 to n do
if z[i]>10 then s:= s+1;
Write('koll=', s);
end.
Функции:
<u><em>trunc</em></u> - возвращает целую часть вещественного числа.
<u><em>round</em></u> - возвращает число, округленное до ближайшего целого. Если вещественное находится посередине между двумя целыми,то округление осуществляется к ближайшему четному (банковское округление).
<em><u>div</u></em> - результат целочисленного деления, точнее округленное до ближайшего целого по направлению к 0.
<em><u>mod</u></em> - остаток от целочисленного деления.
Решение:
trunc(6,9) = 6
trunc(6,2) = 6
round(6,9) = 7
20 div 6 = 3
20 mod 6 = 2
2 div 5 = 0
2 mod 5 = 2
Не знаю, зачем все так усложнять, по-моему нужно у одной хозяйки вычесть 1 л (5-1) молока и отдать его второй хозяйке (3+1), у них как раз станет по 4 л. Не знаю зачем тут еще 2-литровый бидон
Var
s:string;
i:integer;
begin
Write('Введите строку: '); Readln(s);
for i:=Length(s) downto 1 do
if Pos(s[i],'ABCDabcd')>0 then Delete(s,i,1);
Writeln('Результат: ',s)
end.
Пример
Введите строку: Carlsbad is an affluent seaside resort city
Результат: rls is n ffluent sesie resort ity