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

Склавиатуры вводятся два целых числа a и b. найти и вывести на экран все простые числа, лежащие в диапазоне от a до b. pascal abc функцией

👇
Ответ:
M1A1T1E1M1AT1I1K
M1A1T1E1M1AT1I1K
01.12.2022
Procedure Prost(A:integer);
Var
C,D:integer;
Begin
D:=0;
For C:= 2 to A do
        if A mod C = 0 then D:=D+1;
if D=1 then Write(A,' ')
End;

Var A,B:integer;
Begin
Write('A = ');ReadLn(A);
Write('B = ');ReadLn(B);
For B:= A to B do
    Prost(B);
End.
4,6(74 оценок)
Открыть все ответы
Ответ:
masterpop15432
masterpop15432
01.12.2022

 

 

Ну так во первых  обяъвление процедуры должно быть

procedure InputMas1(var mas1:Tmas );

 

 

 во вторых ты забыл  end;  т.е 

 

 

begin
for i:=1 to 10 do
      begin
           mas1[i]:=random(n);
           Write(mas1[i]:3);
     end;

 end; {забытый end}

 

 

в третьих ты  не написал основную прграмму т.е забыл begin и не вызвал процедуру 

InputMas1

 

 

begin

     clrscr;
     InputMas1(mas1);

     readkey;
end. 

 

 

 Итого прога должна выглядеть примерно так

 

 

program Massiv
Uses Crt;
const n=10;
type TMas=array[1..n] of integer;
var mas1:TMas;


procedure InputMas1(var mas1:TMas);
var i:integer;

begin
     for i:=1 to 10 do
        begin
        mas1[i]:=random(n);
        Write(mas1[i]:3);
       end;
end;
{Основная прога}
begin
clrscr;
InputMas1(mas1);
readkey;
end.

 

 

 

 

Держи ! Пользуйся на здоровье и будь внимательнее.

 

 

 

 

 

4,4(30 оценок)
Ответ:
ideliya2006
ideliya2006
01.12.2022

1) дикие животные

2) одежда

3) имена существительные среднего рода

4) деревья

5) плодовые деревья

6) молочные продукты

7) инструменты столяра

8) ягодные кустраники

9) слова с безударными гласными (словарные слова)

10) имена существительные женского рода

11) имена существительные 3 склонения женского рода

12) имена существительные мужского рода с шипящей на конце слова

13) числа

14) единицы измерения времени

15) один месяц каждого времени года

16) месяцы года, в которых 31 день

17) каждое число имеет свои признаки делимости

18) простые числа (деляться только на самого себя и на 1)

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