Var a,b:integer;begina:=20;b:=21;repeata:=a+b;b:=b+1;until (b>99);writeln(a);end.
var a:array[1..100]of integer;
i,n,s1,s2:integer;
begin
readln(n);
for i:=1 to n do
readln(a[i]);s1:=0;s2:=0;
for i:=1 to n do
if i mod 2=0 then s1:=s1+a[i];
if i mod 2=1 then s2:=s2+a[i];
writeln(s1,' ',s2);
end.
Ответ:Событие: решение задачи. Источник ифнормации: учитель. Приемник информации: ученик. Информационный носитель: доска.
Событие: измерения давления. Источник ифнормации: пациент. Приемник информации: врач. Информационный носитель: тонометр.
Событие: воспроизведение аудиофайла. Источник информации: пользователь. Приемник информации: сайт. Информациональнный носитель: ПК/телефон.
Событие: воспроизведение: видео и аудиофайла. Источник информации: пользователь. Приемник информации: телевизор. Информациональный носитель: телевизор.
Событие: воспроизведение музыкального фрагмента в живую. Источник информации: ученик. Приемник информации: ближайшие слушатели. Информациональнный носитель: гитара.
Объяснение:
znanija.com/task/33049511
Var m,n :integer;
begin
readln(n,m);
if n mod m = 0 then
writeln(' делится ')
else
writeln('неделится');
end.
(отметь как лучшее пжл)
Var c:real
begin
readln(c);
c:=c*2;
writeln(c);
end.