Var sum, number : integer;begin sum := 0; repeat write('Введите число: '); readln(number); sum := sum + number; until (sum > 1000); writeln('Сумма чисел: '+sum);end.
Var
i,s,n,m:integer;
begin
Write('Количество чисел равно ');
Readln(n);
s:=0;
Writeln('Введите все числа');
for i:=1 to n do
begin
Read(m);
if (abs(m mod 10)=5) and (m mod 3=0) then s:=s+m
end;
Writeln('s=',s)
end.
Плюсы компьютерных словарей
1. Не нужно искать словарь в библиотеке.
2. Не надо искать слово в некольких словарях.
3. Не пропустишь слово, которое ищешь.
4. Есть большой выбор словарей.
5. Легко можно найти толкование.
Вроде бы, всё.
Животный мир земного шара велик и разнообразен. Животные населяют всю природу вокруг нас. Животные —живые существа. Слово «существо» произошло от слова «существует», то есть живёт. Вот и получается, что любое животное живёт и, так же как человек, дышит, передвига–ется, питается, заботится о своём потомстве и строит для себя жилище — «дом».
64*40*48*8=983040 бит /8/1024 = 102 КБ
Ответ: 3.