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

Program dom; var a : array [1..5000] of integer ; i : byte ; begin writeln('введите количество станций-n'); readln(n); for i: =1 to 255 do readln (a[i]); end. в чем ошибка?

👇
Ответ:
weee2004
weee2004
09.12.2020
Нужно объявить переменную.
Var n: integer;
4,6(14 оценок)
Открыть все ответы
Ответ:
shaimyr24
shaimyr24
09.12.2020

program simple_num;

var n:integer;


function simple(num:integer):boolean;

var count, i:integer;

   key:boolean;

begin

   count := 0;

   i := 1;

   repeat

       if num mod i = 0 then

           inc(count);

       inc(i);

   until (i > num);

   if count > 2 then

       key := false

   else key := true;

   simple := key;

end;


begin

   writeln('Введите натуральное число больше 1');

   readln(n);

   if n > 1 then

       if simple(n) then

           writeln('Число ',n, ' простое')

       else writeln('Число ',n, ' непростое')

   else writeln('введено число менее 1');

end.

4,5(38 оценок)
Ответ:
Romanzadacha2
Romanzadacha2
09.12.2020

program z1;

var a,b,c:real;

begin

writeln('Введите a');

readln(a);

writeln('Введите b');

readln(b);

writeln('Введите c');

readln(c);

if (a>b) and (a>c) then writeln('a - наибольшее число') else

if (b>a) and (b>c) then writeln('b - наибольшее число') else

writeln('c - наибольшее число');

if (a<b) and (a<c) then writeln ('a-наименьшее число') else

if (b<a) and (b<c) then writeln ('b-наименьшее число') else

writeln ('c-наименьшее число');

  if ((a>b) and (a < c)) or ((a < b) and (a > c)) then

writeln('a-среднее число')

else

if ((b > a) and (b < c)) or ((b < a) and (b > c)) then

writeln('b-среднее число')    

else

writeln('c-среднее число');

end.

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