Вводишь сперва количество чисел, которое будет введено с клавиатуры, в твоем случае это 3. Затем вводишь сами три числа, каждый раз нажимая энтер когда ввел число. Например 12,13,7. Сумма будет 20. Этот код работает также с любым другим количеством чисел, например вводишь 5, затем набираешь пять чисел целых, он считает сумма некратных трем.
var a,n,i,s:integer;
begin read(n);
while i<n do begin
read(a);
if (a mod 3=1) then s:=s+a; i:=i+1;
end;
writeln(s);<span>
end.</span>
Program z1;
Uses Crt;
var a,i:integer;
p:longint;
begin
clrscr;
p:=1;
write('Введите число а: ');
readln(a);
for i:=a to 100 do
p:=p*a;
writeln('Произведение всех чисел от ',a,'до 100:',p);
readkey;
end.
Program z2;
Uses Crt;
var s,i:integer;
i:=2;s:=0;
while(i<=98) do
begin
s:=s+i;
i:=i+2;
end;
clrscr;
write('Сумма последовательности: ',s);
readkey;
end.
Program z3;
Uses Crt;
var a,i:integer;
begin
clrscr;
a:=0;
for i:=100 to 999 do
if ((i mod 5)=0 and (i mod 21)=0) then
a:=a+1;
write('Количество 3-значных чисел делящихся без остатка на 5 и 21: ',a);
readkey;
end.
Program z4;
Uses Crt;
var a,i,s:integer;
begin
clrscr;
s:=10:
write('Введите количество тренировочных дней: ');
readln(a);
for i:=2 to a do
s:=s+3;
write('Суммарное расстояние: ',s);
readkey;
end.
Program z5;
Uses Crt;
var a,i,n,s:integer;
begin
clrscr;
write('Введите количество отрядов: ');
readln(n);
s:=0;
for i:=1 to n do
begin
write('Введите количество детей в ',i ,'-м отряде:' );
readln(a);
clrscr;
s:=s+a;
end;
writeln;
writeln('Общее количество детей в лагере:',s);
readkey;
end.
<span>Устро́йства вво́да — периферийное оборудование, предназначенное для ввода данных или сигналов в компьютер или в другое электронное устройство во время его работы
</span>Устройства вывода<span> - это </span>устройства<span>, которые переводят </span>информацию<span> с машинного языка в формы, доступные для человеческого восприятия. Различают алфавитно-цифровые и графические мониторы, а также монохромные мониторы и мониторы цветного изображения - активно-матричные и пассивно-матричные жкм.
</span>
<span>Жесткий диск, или винчестер, — основные устройства хранения информации в компьютере. Современные жесткие диски отличаются высокими показателями емкости (сотни н даже тысячи гигабайт), скорости и надежности, а также не очень высокой стоимостью.
</span>оперативной памяти находится и место для хранения промежуточных данных, формируемых в процессе обработки информации<span>. Таким образом, процессор как получает данные из оперативной памяти, так и записывает обработанные данные в оперативную память.</span><span>
</span>
