Регистрация
Andrey11jr
07.05.2023 16:19
Информатика
Есть ответ 👍

Решить в паскале! новые учебники для трех курсов, по a штук для каждого курса. все книги одинаковы по размеру. в книжном шкафу b полок, на каждой вмещается c учебников. сколько шкафов можно полностью заполнить учебниками? ?

102
161
Посмотреть ответы 2

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

RancoR1
RancoR1
4,7(43 оценок)
//pascal abc.net v3.1 сборка 1172 var  a,b,c: integer; begin   read(a,b,c);   b: =b*c;   a: =a div b;   writeln(a); end. пример ввода: 13 3 4 пример вывода: 1
jdhhdd
jdhhdd
4,4(90 оценок)

заменить участок текста:

writeln('удалённые слова: ');  

i: =1; b: ='';

repeat

  if s[i] < > ' ' then  

  a : = a + s[i];  

  if (s[i] = ' ') or (i = length(s)) then  

  begin  

    if a[1] = a[length(a)] then writeln(a)

    else

    begin

      b: =b+a;

      if i< > length(s) then b: =b+' ';

    end;  

    a: ='';

  end;  

  i: =i+1;

until i> length(s);  

writeln;  

writeln('исходный');  

writeln(s);  

writeln('изменённый текст');  

writeln(b);  

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