Ответ на первый вопрос выделен оранжевым
на второй - синим
на третий - зеленым
на четвертый - красным
--
P.S. Честно говорю, что таблица получилась кривая и малоинформативная.
Может у кого-то еще будут идеи со структурой таблицы...
Компьютеры очень важны в наше время.Ни один завод,не одна фабрика,ни одна фирма не обходится без компьютера.Сами компьютеры не смогут создавать без компьютеров.На заводах и фабриках всегда делают подсчеты с помощью компьютера и сохраняют на них данные . На фирмах сохраняют документы с помощью компьютера .Даже ни один большой магазин или супермаркет не может обойтись без компьютера. Итог :в наше время невозможно жить без компьютеров.
var a,b,c,e,k:integer;
begin
k:=9;//вставить любоое число
a:=-1;
while a<>0 do
begin
read(a);
if a>0 then b:=b+a;
if a<0 then c:=c+1;
if (a mod k = 0)and(a<>0) then
if e=0 then e:=a else e:=e*a;
end;
writeln('сумма положительных элементов = ',b);
writeln('кол-во отрицательных элементов = ',c);
writeln('произведение элементов, кратных ',k,' равнo ',e);
end.
если нужно , чтобы пользователь вводил К , то за место оператора к:=9; вставить read(k);
4.Основные свойства алгоритмов следующие:
1. Понятность для исполнителя — исполнитель алгоритма должен понимать, как его выполнять. Иными словами, имея алгоритм и произвольный вариант исходных данных, исполнитель должен знать, как надо действовать для выполнения этого алгоритма.
Разрешение составляет 1280 на 1024. Поясняю, если перемножить эти числа то получится ваше разрешение