Uses crt;
var a:array[1..4] of integer;
sum,i:integer;
begin
clrscr;
writeln('Введите 4 целых числа:');
for i:=1 to 4 do
begin
read(a[i]);
if a[i]mod 3=0 then sum:=sum+a[i];
end;
writeln('Сумма чисел, кратных трем: ',sum);
<span>end.</span>
Нажми правую клавишу мыши на рабочем столе. Выбери "персонализация". Выбери в разделе "темы по умолчанию" "windows"
Windows не хочет устанавливаться, потому что он уже установлен
Var t, a, i: integer;
begin
write('Введите количество минут: ');
read(t);
a:=1;
for i:=1 to t do
begin
a:=a*2;
writeln('Бактерий через ', i , ' минут: ', a);
end;
<span>end.</span>
Stroka=list(map(int,input().split()))print(stroka[1])
<span>uses crt;
var
a,b,k,i:integer;
begin
clrscr;
writeln('Введите 18 целых чисел, в начале несколько одинаковых:');
readln(a);
k:=1;
for i:=2 to 18 do
begin
readln(b);
k:=k + ord(b=a);
end;
write('Количество одинаковых в начале=',k);
readln
end.</span>