Program n1;
var a,sum,i: integer;
begin
sum:=0;
readln(a);
for i:=1 to a div 2 do if (a mod i) = 0 then
if i mod 2=0 then sum:=sum+i;
if a mod 2=0 then sum:=sum+a;
writeln(sum);
end.
Вот вам программа, пробовала компилировать и запускать на free-pascal, на всем остальном тоже должно пойти
1)
var a,b,c:real;
begin
write('Введите три стороны треугольника: ');
readln(a,b,c);
if((a < b+c) and (b < a+c) and (c < a+b)) then write('Периметр треугольника: ',(a+b+c):9:3)
else write('Треугольник с данным сторонами не существует');
end.
2)
var a,b:real;
begin
write('Введите два числа: ');
readln(a,b);
writeln('Сумма данных чисел: ',(a+b):9:3);
write('Произведение данных чисел: ',(a*b):9:3);
end.
В языке Pascal команда for всегда совершает шаг, равный единице
Это можно проверить с помощью программы:
<h2>var i: integer;</h2><h2>begin</h2><h2>for i:=1 to 10 do</h2><h2>writeln(i);</h2><h2>end.</h2>
Счётчик i увеличивается на 1, следовательно шаг всегда равен единице.
Ответ:
1.информатика
2.в разных видах;числовая
3.операции;передавать
4.информацию,зрения,размышлений,информацию,наблюдать