М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
daryastasevich1
daryastasevich1
29.04.2021 04:15 •  Информатика

Дано целое число n и массив случайных чисел x[1..n].все элементы,меньше 2,заменить нулями.кроме того,получить сумму и количество элементов,п ринаднежащих отрезку [3; 7]

👇
Ответ:
Dariya160408589865
Dariya160408589865
29.04.2021
Var i,n,r,k: integer;    
s: array [1..50] of integer;
Begin
Write('n=');
Read(n);
for i:= 1 to n do
begin
s[i]:= random(100);
Writeln(s[i]);
end;
for i:= 1 to n do
if s[i]<2 then s[i]:=0;
r:=0;
k:=0;
for i:= 3 to 7 do
begin
k:=k+1;
r:= r+s[i];
end;
WriteLn ('kol=', k);
WriteLn ('sum=', r);
end.
4,8(53 оценок)
Открыть все ответы
Ответ:
shyndari
shyndari
29.04.2021
Var
q: string;
a,i,z,g,b,x,m: Integer;
begin
z:=0;
g:=1;
readln(q,a,b,x,m);
for i:=1 to length(q) do
begin
z:=z+q[i];
end;
if z<a then writeln('Верно, что сумма цифр меньше А') else
writeln('Неверно, что сумма цифр меньше А');
for i:=1 to length(q) do
begin
g:=g*q[i];
end;
if g>b then writeln('Верно, что произведение цифр больше B') else
writeln('Неверно, что произведение цифр больше B');
if x=length(q) then writeln('Верно, что число x значеное') else
writeln('Неверно, что число x значное');
if q[0]>m then writeln('Верно, что его первая цифра превышает m') else
writeln('Неверно, что его первая цифра превышает m');
end.
4,6(91 оценок)
Ответ:
НастМал
НастМал
29.04.2021

//PascalABC.NEt v3.3 1633

var A,B,x,m: integer;

i: integer;

num, composition, sum: integer;

begin

 A:=5;

 B:=1;

 x:=12;

 m:=6;

 write('Введите натуральное число: ');

 readln(num);

 

 composition:=1; // Произведение цифр числа

 sum:=0; // Сумма цифр числа

 

 // Преобразуем число в строку и пробегаемся по ней, находя

 //  сумму и произведение цифр.

 for i:=1 to IntToStr(num).Length do

 begin

   composition *= StrToInt(IntToStr(num)[i]);

   sum += StrToInt(IntToStr(num)[i]);

 end;

 

 if sum < A then

   writeln('Верно! Сумма его цифр меньше A!')

 else

   writeln('Не верно! Сумма его цифр не меньше A!');

 

 if composition > B then

   writeln('Верно! Произведение его цифр больше B!')

 else

   writeln('Не верно! Произведение его цифр не больше B!');

 

 if IntToStr(num).Length = x then

   writeln('Верно! Это число '+x+'-значное!')

 else

   writeln('Не верно! Это число не '+x+'-значное!');

   

 if StrToInt(IntToStr(num)[1]) > m then

   writeln('Верно! Первая цифра числа превышает '+m)

 else

   writeln('Не верно! Первая цифра числа не превышает '+m);

end.

4,4(38 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ