В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Саша555111
Саша555111
21.01.2020 11:01 •  Информатика

3. Берілген блок-сызбадағы алгоритмнің псевдокоды мен программасын жазыңыз.
Блок-сызба
Псевдокод
Python программалау
тілінде
Басы
S = 0
Иа.
Жоқ
1<s 10
Сода
3.1 Программаның орындалу нәтижесінде шыккан S-тің мәнін
жазыңыз​
8 сынып ивт көмектесіңіздершы

Показать ответ
Ответ:
Marina22111
Marina22111
13.10.2021 01:49

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.

0,0(0 оценок)
Ответ:
mkagermazov
mkagermazov
04.10.2021 17:18

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.

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота