Написать 3 программы. Каждая программа должна подсчитывать сумму чисел от 10 до 20. Одна программа должна быть сделана через цикл While, вторая - через цикл Repeat, третья - через цикл For.
Информационная деятельность - это совокупность действий, направленных на удовлетворение информационных потребностей граждан, юридических лиц и государства. В целях удовлетворения этих потребностей органы государственной власти и органы местного и регионального самоуправления создают информационные службы, системы, сети, базы и банки данных. Порядок их создания, структура, права и обязанности определяются Кабинетом Министров Украины или другими органами государственной власти, а также органами местного и регионального самоуправления.
Через WHILE:
var s,i: integer;
begin
i:=10;
while (i<=20) do
begin
s:=s+i;
i:=i+1;
end;
write('Сумма чисел от 10 до 20 равна ',s);
end.
Через REPEAT:
var s,i: integer;
begin
i:=10;
repeat
begin
s:=s+i;
i:=i+1;
end;
until (i>20);
write('Сумма чисел от 10 до 20 равна ',s);
end.
Через FOR:
var s,i: integer;
begin
for i:=10 to 20 do s:=s+i;
write('Сумма чисел от 10 до 20 равна ',s);
end.