1. Информатика
  2. Если 2^m больше чем 2m,то

Если 2^m больше чем 2m,то m увеличить в 10 раз. в противном случае m уменьшить в 2 раза. блок схема и паскаль

kakoieshonik kakoieshonik    1   28.03.2019 05:40    6

Ответы
GayaneshkaBrainly GayaneshkaBrainly  26.05.2020 21:55

var
m: Integer;
begin

Write('Введите m: '); Readln( m );

if sqr(m) > 2*m then m := m*10 else m := m div 2;

Write( m );
Readln;
end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
iprin iprin  30.09.2019 03:00
Втекстовом процессоре откройте файл домик.doc. сделать этот домик...
Ппмммммммм Ппмммммммм  25.08.2019 11:20
Var a, b: integer; tab: array [1..15] of integer; begin randomize; for a : = 1 to 15 do begin tab[a] : = random(-15, 15); writeln(a, - элемент = , tab[a]); end;...
785600 785600  02.10.2019 20:21
1)найдите значения х, для которых верны следующие равенства: 23х = 1510 15х = 1310 2)сравните числа (для этого нужно, чтобы все числа были в десятичной системе...
cool107 cool107  10.03.2021 15:10
Напиши фрагмент html кода для создания нумерованного списка...
Neу4 Neу4  10.03.2021 15:13
Допишите программу и напишите результат. for in range (10, 25): if i%2==0: s=s+iprint :( ​...
dianaTe dianaTe  10.03.2021 15:13
Написать программный код к задаче: Сгенерировать 20 случайных целых чисел в диапазоне от -5 до 4, записать их в ячейки массива. Посчитать сколько среди них положительных...
dgrigoref dgrigoref  14.07.2019 20:20
Ввести строку из текстового файла. продублировать в ней все цифры. остальные символы оставить без изменения. pascalabc.net (продублировать это значит приписать...
kadieva1976 kadieva1976  13.11.2020 08:08
Питон. Python Прочитать файл file.inИ определить можно ли представить заданное в нем натуральное число, как сумму четырёх последовательных натуральных чисел...
ksenia915 ksenia915  13.11.2020 08:07
Дается последовательность из N чисел. Выведите сумму четных чисел среди них. Формат входных данныхПервая строка входного файла содержит целое число N (1 = N = 1000)....
nikspirin nikspirin  13.11.2020 08:07
Определите информационный объем реферата записанного с символьного алфавита. Выразите его в байтах. Если реферат содержит 8 страниц, на 1 странице 40 строк, а в...

Популярные вопросы