Входные и выходные данные напишите, возможно я не понял задачу.
Данная программа считывает n, затем считывает множество чисел x1,x2,x3,...,xN и вы видите самое большое число делящееся на 3
var x,i,n,ma:integer;beginread(n);for i:=1 to n do begin read(x); if (x>ma) and ((x mod 3)=0) then ma:=x; end;writeln(ma);end.
Растение-дерево-яблоня(груша)
растение-гриб-подосиновик(лисичка)
здание-школа-школьник(учитель)
Var
N,M,S,A,i,j:integer;
Begin
S:=0;
j:=0;
Write('N = ');Read(N);
Write('M = ');Read(M);
For i:= 1 to N do
Begin
A:=random(2001)-1000;
Write(A,' ');
if A mod M = 0 then
Begin
S:=S+A;
j:=j+1;
End;
End;
WriteLn;
if j=0 then Write('Чисел, кратных ',M,' нет')
else Write('Среднее арифметическое чисел, кратных ',M,' = ',S/j);
End.
Спрошу у него, для какой цели ему нужен мой номер телефона и домашний адрес, и конечно же я ему не буду сообщать мою личную информацию без видимых на то причин
<span>44,1 кГц - значит, что сигнал измеряется 44 100 раз в течение одной секунды.</span>⇒<span>
44100*(2*60)*16=~10МБайт </span>