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

Тема: «Операторы присваивания, ввода и вывода»

1. Какие из следующих операторов ввода записаны неверно? Объясните свой ответ.

а)- INPUT X

б)- INPUT “X =”; X

в)- INPUT “X =”

г)- INPUT “X, Y”; X , Y

д)- INPUT “X,Y”; X

е)- INPUT “X =” ; X , “Y =” ; Y

2. Найдите ошибки в следующих фрагментах программ:

а) А = 5

В = 2 * А

PRINT A : B

PRINT “B =” ; 2 * A

PRINT конец

б) Х = 7

2 * Х = Y

PRINT ‘Y =’ ; X ^ 2

PRINT Y + 3

3. Объясните назначение следующей программы:

INPUT “A =” ; A

INPUT “B =” ; B

A = A + B

B = A – B

A = A – B

PRINT “A =”; A ; “B =” ; B

4. Покажите на бумаге, что будет выведено на экран в результате работы следующего фрагмента программы:

X = 2

Y = 3

PRINT “X =” ; X , “Y =” ; Y

X = Y

Y = X

PRINT X , Y , 3

5. Что будет выведено на экран в результате работы следующего фрагмента программы:

A = 10 : B = 6

A = (A + B) / 2

B = (A + B) / 2

PRINT “A =” ; A , “B =” ; B

A = (A + B) / 2

PRINT : PRINT A , B

A = B : B = A

PRINT A , B

👇
Открыть все ответы
Ответ:
сонька177
сонька177
05.04.2022
Var m : array[0..6] of Integer;
  i,k,N : Integer;
Begin
  For i:=0 to 6 do m[i]:=0;
  Readln(N);
  k:=6;
  While N>0 do
  Begin
    If N>=Power(2,k) then
    Begin
      N:=N-Trunc(Power(2,k));
      Inc(m[k]);
    end else Dec(k);
  end;
  For i:=0 to 6 do Writeln(Power(2,i),'  ',m[i],' шт.');
end.

Еще вариант:
Const
  NN = 7;
  money : array[1..7] of Integer = (1,2,4,8,16,32,64);
Var m : array[1..NN] of Integer;
  i,k,N : Integer;
Begin
  For i:=1 to NN do m[i]:=0;
  Readln(N);
  k:=NN;
  While N>0 do
  Begin
    If N>=money[k] then
    Begin
      N:=N-money[k];
      Inc(m[k]);
    end else Dec(k);
  end;
  For i:=1 to NN do Writeln(money[i],'  ',m[i],' шт.');
end.
4,7(42 оценок)
Ответ:
666Евгения69
666Евгения69
05.04.2022

program z1;

var t: integer;

begin

write('С начала суток секунд t = ');

readln(t);

writeln('Это составляет ',t div 3600,' часов ', t mod 3600 div 60,' минут ',t mod 3600 mod 60,' секунд')

end.

Объяснение:

div - целочисленное деление

mod - остаток от целочисленного деления

1 мин = 60 сек

1 час = 60 мин = 3600 сек

t div 3600 - сколько целых часов

t mod 3600 - сколько секунд осталось не считая целых часов

t mod 3600 div 60 - сколько целых минут

t mod 3600 mod 60 - сколько секунд осталось не считая целых часов и целых минут

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