Ответ:
Объяснение:
дискета,SD ROM,DVD ROM,флеш память,Жесткий диск
Не разшифровается а,Расшифровавается
Ответ:Монитор
Задача №1
//Pascal
var i,a,s,k:integer;
begin
s:=0;k:=0;
repeat
readln(a);
if a>12 then begin
k:=k+1;
s:=s+a;
end;
until a=0;
if k<>0 then writeln(s/k)
else writeln('Таких чисел нет');
end.
Задача №2
var
n,p: integer;
begin
p:=1;
readln(n);
while n > 0 do
begin
write(' ', n mod 10);
if n mod 10 < 4 then p:=p * (n mod 10);
n := n div 10
end;
if p<>1 then writeln('Произведение цифр числа ', p)
else writeln('Нет решения');
end.
Паскалевский вариант от меня.
Program Programma;
Uses crt;
var n, p: integer;
BEGIN clrscr;
write('n = ');
readln(n);
writeln;
if (n > 0) and (n <=100) then
begin
p:=sqr(n);
write('Ответ: p = ', p);
end
else
write('Число ненатуральное или превосходит 1000');
readln;
END.