Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 27.12.2015 23:17
- Информатика
- remove_red_eye 3158
- thumb_up 22
Ответы и объяснения 2
program Solution;var Arr: array [0..80] of Integer; i, countChetn, countNeChetn, num : Integer;begini := 0;countChetn := 0;countNeChetn := 0;while(true) do begin num := random(20, 100); Arr[i] := num; if(i mod 2 = 0) then countChetn := countChetn + 1 else countNeChetn := countNeChetn + 1; if(i = 80) then break; i := i+1; end;writeln(countChetn);writeln(countNeChetn);end.
- 28.12.2015 21:49
- thumb_up 29
var
a:array [1..10] of integer;
d,i:integer;
begin
write('Первый элемент: ');
readln (a[1]);
write('Разность: ');
readln (d);
for i:= 2 to 10 do
a[i]:= a[i-1]+d;
writeln(a)
end.
Пример:
Первый элемент: 1
Разность: 2
[1,3,5,7,9,11,13,15,17,19]
Арифмети́ческая прогрессия - последовательность чисел (членов прогрессии), каждое из которых, начиная со второго, получается из предыдущего добавлением к нему постоянного числа d≠0 (шага или разности прогрессии).
6.
var
a:array [1..10] of integer;
i,k1,k2:integer;
begin
for i:= 1 to 10 do
a[i]:= Random(20,100);
writeln(a);
for i:=1 to 10 do
if a[i] mod 2 = 0 then k1:=k1+1
else k2:=k2+1;
writeln('Чётных элементов: ',k1);
writeln('Нечётных элементов: ',k2)
end.
Пример:
[33,68,77,90,79,50,60,62,60,86]
Чётных элементов: 7
Нечётных элементов: 3
- 29.12.2015 23:50
- thumb_up 41
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.