1) определите и выведите на экран количество чисел от 50 до 500, которые делятся на 11 и 13 одновременно. 2) дан массив целых чисел, состоящий из 100 элементов. заполнить его с клавиатуры. найти: а) удвоенную сумму положительных элементов; б)вывести индексы тех элементов, значения которых больше значения предыдцщего элемента ( начиная со второго)
269
380
Ответы на вопрос:
1)
var i,k: integer; begin k: =0; for i: =50 to 500 do beginif (i mod 11=0)and(i mod 13=0) then k: =k+1; end; writeln(k); end.
program z1;
var a:array [1..13] of integer;
i,e,n,s:integer;
begin
i:=1;
e:=2;
repeat
a[i]:=e;
i:=i+1;
e:=e+3
until e>15;
n:=i-1;
write('Ряд:');
for i:=1 to n do
begin
write(a[i]:4);
s:=s+a[i]
end;
writeln;
write('Сумма чисел: ',s)
end.
Объяснение:
Без массива
program z1;
var i,s:integer;
begin
write('Ряд:');
i:=2;
repeat
write(i:4);
s:=s+i;
i:=i+3;
until i>15;
writeln;
write('Сумма чисел: ',s)
end.
Популярно: Информатика
-
kongratbaeva200303.03.2022 11:40
-
Tanya22rus27.12.2021 11:37
-
nactya20161321.04.2020 14:09
-
lazmax200007.09.2021 00:45
-
toshamilgis27.10.2021 15:20
-
ivanovmax17.08.2020 11:31
-
Dover148827.12.2021 12:34
-
wayly01.02.2021 11:26
-
Montes77631.12.2022 15:37
-
licicha04.01.2021 12:23