Регистрация
kem8
14.02.2023 21:54
Информатика
Есть ответ 👍

1. написать программу, решающую уравнение ax=b. предусмотреть все варианты для значений a и b. 2. идет к-ая секунда суток. определить, сколько целых часов и целых минут прошло с начала суток. на экран вывести фразу: «it is … hours … minutes». 3. вводится пятизначное число. найти сумму цифр этого числа. написать программы в паскале.

159
206
Посмотреть ответы 2

Ответы на вопрос:

OVSANKASIR
OVSANKASIR
4,4(52 оценок)

1.

 

program simple;

var a,b: integer;

begin

  writeln('daite a, b); readln(a,b);

  writeln('x = ', b/a); readln;

end;

 

2.

 

program day;

var h,hours,minutes: longint;

begin

  writeln('daite secundi'); readln(h);

  hour: = h div 3600; minutes: =h mod 36000;

  if (minutes > 60) or (minutes=60) then 

    begin

        hour: =hour+1;

        minutes: =minutes-60;

  end;

  writeln('it is 'hours' hours 'minutes' minutes');

readln;

end;

 

3.

 

program summachisla;

var s: string; i,sum: longint; c,cod: integer;

begin

  writeln('daite nomer); readln(s);

  for i: =1 to length(s) do

    begin

          val(s[i],c,cod); sum: =sum+c;

    end;

writeln('summa : ',sum); readln;

end;

azizka4
azizka4
4,6(95 оценок)
Всекунду нам требуется 44100 раз по 16 бит: 16 * 44100 = 705600 в минуту: 705600 * 60 = 42336000 для 5 минут: 42336000 * 5 = 211680000 это в битах. чтобы перевести в байты делим на 8 и получаем 26460000 байт.

Популярно: Информатика