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

На токарном станке работало три токаря, первый за смену изготовил m деталей, второй на 45% меньше первого, а третий сколько первый и второй вместе. вывести сколько изготовил каждый токарь и сколько вместе

👇
Ответ:
neannopad7
neannopad7
16.06.2021
Var m,m2,m3: integer;
begin
readln(m);
m2:=round(m-0.45*m);
m3:=m+m2;
writeln('1: ',m,', 2: ',m2,', 3: ',m3,', вместе: ',m+m2+m3);
end.

Пример:
20
1: 20, 2: 11, 3: 31, вместе: 62
4,7(29 оценок)
Ответ:
Haroojul
Haroojul
16.06.2021
1) 2*8=16 (дет.) - на столько больше изготовил за смену 1-ый токарь2) 90-16=74 (дет.) - изготовили бы за смену оба токаря, если бы работали с производительностью 2-ого3) 74:2=37 (дет.) - изготовил 2-ой токарь за смену4) 37+16=53 (дет.) - изготовил за смену 1-ый токарьответ: за смену первый токарь изготовил 53 детали, а второй - 37 деталей 
4,7(63 оценок)
Открыть все ответы
Ответ:
али5553
али5553
16.06.2021
Var Z:integer;
Begin
Write('Z = ');ReadLn(Z);
if Z>0 then WriteLn('Положительное')
else if Z=0 then WriteLn('Равное нулю')
     else WriteLn('Отрицательное')
End.

Пример:
Z = -5
Отрицательное

Z = 0
Равное нулю

Z = 256
Положительное

Z = 10455
Положительное

Var
   X,Y:real;
Begin
Write('X = ');ReadLn(X);
Write('Y = ');ReadLn(Y);
if (X = 0)and(Y = 0) then WriteLn('Начало координат')
else if (X=0) then Write('Ось абсцисс')
     else if (Y=0) then WriteLn('Ось ординат')
          else if (X>0) then
                  if (Y>0) then WriteLn('Первая четверть')
                  else WriteLn('Вторая четверть')
               else
                  if (Y<0) then WriteLn('Третья четверть')
                  else WriteLn('Четвёртая четверть')
End.

Пример:
X = 0
Y = 0
Начало координат

X = 0
Y = 1
Ось абсцисс

X = 1
Y = 0
Ось ординат

X = 1
Y = 1
Первая четверть

X = 1
Y = -1
Вторая четверть

X = -1
Y = -1
Третья четверть

X = -1
Y = 1
Четвёртая четверть

Var
   a,b,c,S:integer;
Begin
Write('Введите трёхзначное число: ');ReadLn(A);
b:=(a div 10) mod 10;
c:=a mod 10;
a:=a div 100;
S:=a+b+c;
if (9<S)and(S<100) then WriteLn('Сумма цифр(',S,') - двузначное число')
else WriteLn('Сумма цифр(',S,') не является двузначным числом');
if (a=4)or(b=4)or(c=4) then WriteLn('Цифра 4 есть') else WriteLn('Цифры 4 нет');
if (a=7)or(b=7)or(c=7) then WriteLn('Цифра 7 есть') else WriteLn('Цифры 7 нет')
End.

Пример:
Введите трёхзначное число: 74
Сумма цифр(11) - двузначное число
Цифра 4 есть
Цифра 7 есть

Введите трёхзначное число: 71
Сумма цифр(8) не является двузначным числом
Цифры 4 нет
Цифра 7 есть

Введите трёхзначное число: 13
Сумма цифр(4) не является двузначным числом
Цифры 4 нет
Цифры 7 нет
4,6(34 оценок)
Ответ:
Тембулат14
Тембулат14
16.06.2021

1) 23+16=39 символов было в сообщении первоначально

2) 23 × 1 байт = 23 байт общий объем первого сообщения без русского алфавита

3) 16 × 2 байта = 32 байт информационный объем сообщения русского алфавита до перекодировки

4) 23+32=55 байт - информационный объем сообщения до перекодировки

5) 39 × 2 байт = 78 байт информационный обем сообщения после перекодировки ( в Unicode 1 символ - 2 байта)

6) 4 Кбит ×1024/8 = 512 байт объем добавленного сообщения

7) 78+512 = 590 байт стал информационный объем сообщения после добавления еще одного сообщения

8) 590 - 55 = 535 байт увеличился итоговый информационный объем

 

ответ: 535 байт

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