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

В"кумир". 8 класс 1) ввести число. если оно больше 10, разделить его на 2, если меньше или равно 10, то умножить на 5. 2) ввести два числа . если их сумма больше 100, то сумму уменьшить в 2 раза, в противном случае увеличить в 2 раза

👇
Ответ:
egorivanov2000
egorivanov2000
18.03.2020
№1

алг
нач
вещ a
ввод a
если a>10 то a:=a/2 иначе a:=a*5 все
вывод a
кон

№2

алг
нач
вещ a,b,sum
ввод a,b
sum:=a+b
если sum>100 то sum:=sum/2 иначе sum:=sum*2 все
вывод sum
кон
4,4(37 оценок)
Ответ:
fhehneeggbvfs
fhehneeggbvfs
18.03.2020
1)var
n:real;
begin
readln(n);
if n>10 then
n:=n/2
else
n:=n*5;
writeln(n);
end.

2) var
  a, b: integer;
begin
  writeln('Введите два числа: ');
  read(a, b);
  if a + b > 100 then writeln((a + b) / 2)
  else writeln((a + b) * 2);
end.
4,6(13 оценок)
Открыть все ответы
Ответ:
mrlams288
mrlams288
18.03.2020
1)
uses crt;
var a:array [1..15] of integer;
     i,k:integer;
begin
  randomize;
  k:=0;
  for i:=1 to 15 do
    begin
      a[i]:=random(10)-3;
      if (a[i]<0) then inc(k);
      write (a[i],' ');
    end;
  writeln;
  writeln (k/15*100,'%');
end.

2)
uses crt;
var a:array [1..20] of integer;
     i:integer;
begin
  randomize;
  for i:=1 to 20 do
    begin
      a[i]:=random(30);
      write (a[i],' ');
    end;
  writeln;
  for i:=1 to 20 do
    if (a[i] mod 10 = 3) then write (a[i],' ');
end.

3)
uses crt;
var a:array [1..20] of integer;
     i:integer;
     k:longint;
begin
  randomize;
  k:=1;
  for i:=1 to 20 do
    begin
      a[i]:=random(30);
      write (a[i],' ');
      if (a[i]>9) and (a[i]<100) then k:=k*a[i];
    end;
  writeln;
  writeln (k);
end.

4)
uses crt;
var a:array [1..30] of integer;
     i:integer;
     flag:boolean;
begin
  randomize;
  for i:=1 to 30 do
    begin
      a[i]:=random(30);
      write (a[i],' ');
    end;
  writeln;
  flag:=true;
  for i:=1 to 29 do
    if (a[i]>a[i+1]) then
     begin
       flag:=false;
       break;
     end;
  writeln (flag);
end.
4,4(78 оценок)
Ответ:
unna1
unna1
18.03.2020

позиционная систе́ма счисле́ния (позиционная нумерация) — система счисления, в которой значение каждого числового знака (цифры) в записи числа зависит от его позиции (разряда).изобретение позиционной нумерации, основанной на поместном значении цифр, приписывается шумерам и вавилонянам. в более поздний период такая нумерация была развита индусами и имела неоценимые последствия в цивилизации. к числу таких систем относится десятичная система счисления, возникновение которой связано со счётом на пальцах. в средневековой европе она появилась через итальянских купцов, в свою очередь заимствовавших её у жителей средней азии.

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