Var x,s:integer;
begin
s := 0;
read(x);
while x <> 0 do
begin
if (x mod 3 = 0) and (x mod 10 = 4)
then s := s + x;
read(x)
end;
write(s)
end.
Смотри вложение
...............................
<span>Для построения графика в Excel по двум точкам необходимо заполнить значения Х и У. Для этого создаем таблицу для значений Х и У и заполняем ее. В нашем случаи нам понадобится внести по одному значению в Х и У. Как только вы внесли значения, заходим в меню ВСТАВКА и выберем пункт ГРАФИК. После чего вы увидите на своем мониторе график, построенный под двум точкам.</span>
В проге ошибка: введённое целое число "а" сравнивается с числом "N", которого нет, т.е. оно не задано.
Также описаны переменные, которые не используются: X,Y,ch,ch1