Шестиклассники Аня, Боря, Вася, Галя, Даша и Иван получили флешки на 1,2,4,8,16,32 Гб. Выясните, кто из ребчт получили флешку са
alexandro76 [1]
У Ивана самая большая(32Гб), а у Гали самая маленькая(1Гб).
Доміно, доктор, ребус, речі, міра, міф, факт, фантазія, парасолька, посольство, лялька, каструля, сіно, сідло
1)
var a: array [1..40] of integer;
i, s1, s2: integer;
begin
for i := 1 to 40 do
begin
a[i] := random(20);
writeln('a[', i, '] => ', a[i]);
if (a[i] mod 2 = 1) then
begin
s1 := s1 + a[i];
inc(s2);
end;
end;
writeln(s1 / s2);
<span>end.
2)
var a: array [1..40] of integer;
i, q: integer;
begin
for i := 1 to 40 do
begin
a[i] := random(20);
writeln('a[', i, '] => ', a[i]);
if (a[i] <= 10) then q := q + a[i];
end;
writeln(q);
<span>end.
3)
var a: array [1..40] of integer;
i, w: integer;
begin
for i := 1 to 40 do
begin
a[i] := random(20);
writeln('a[', i, '] => ', a[i]);
if (a[i] mod 3 = 0) then w := w + a[i];
end;
writeln(w);
<span>end.</span></span></span>
Родовое понятие это "компьютерный символ"
поставь стрелочки от всех слов к "компьютерному символу"
Присвоить к переменной A текст введенный с клавиатуры.
К переменной i присвоим длину текста в переменной А.
Переменная J присвоить 0.
Переменная к присвоим 0, "к" = количество буквы "к" в тексте
Запустить цикла от J до i с шагом 1.
В теле цикла.
Проверим "к" = А[J] (А[1] = первая буква из теста,)
К переменной "к" присвоить "к+1". при условии если "к" = А[J] .
Если "к" не равно А[J] то без изменения.
Вывод "к"