1)
var a:integer;
begin
for a:=1 to 5 do
write(a,' ');
<span>end.
2)
var a:integer;
begin
for a:=5 downto 1 do
write(a,' ');
<span>end.</span></span>
Ну операция то какая? )) сумму или разность найти?
<em>Это из алгебры логики, логическая операция, дизъюнкция, логическое сложение. аналог или, or;∨</em>
<em>C∨0 = С</em>
сходство:
*текстовые редакторы
*позволяют проводить поиск/замену
*позволяют изменять масштаб отображения текста (в блокноте черех шрифт)
различие:
*ворд сохраняет оформление/форматирование, поддерживает разные форматы файлов
*ворд имеет дополнительные возможности (язык/статистика/таблицы/и много другого)
*ворд может работать с рисунками, гиперссылками и т. д.
Var
i,count:integer;
h: array [1..20] of integer;
begin
count:=0;
writeln('Введите элементы');
for i:=1 to 20 do
read(h[i]);
for i:=1 to 20 do
if h[i]>0 then
count:=count+1;
writeln('Количество нулевых элементов ', count)
end.