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

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

👇
Ответ:
abdullaevs04
abdullaevs04
29.06.2020
//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
4,8(85 оценок)
Открыть все ответы
Ответ:
smalik8
smalik8
29.06.2020

1)#include <iostream>

using namespace std;

int main() {

 int a=1,b=1,c=0,d=1;

 int otvet=a*(-1)+b^c-d;

 cout<<otvet;

}

2)#include <iostream>

using namespace std;

int main() {

 int a = 1, b = 1, c = 1, d = 1;

 int otvet=a*(-1)+b^c-d;

 cout<<otvet;

}

3)#include <iostream>

using namespace std;

int main() {

 int a = 0, b = 0, c = 0, d = 0;

 int otvet=a*(-1)+b^c-d;

 cout<<otvet;

}

4)#include <iostream>

using namespace std;

int main() {

 int a = 0, b = 1, c = 1, d = 0;

 int otvet=-(a+b^c+(-b))+a^d;

 cout<<otvet;

}

5)#include <iostream>

using namespace std;

int main() {

 int a = 1, b = 0, c = 0, d = 1;

 int otvet=-(a+b^c+(-b))+a^d;

 cout<<otvet;

}

6)#include <iostream>

using namespace std;

int main() {

 int a = 1, b = 1, c = 1, d = 1;

 int otvet=-(a+b^c+(-b))+a^d;

 cout<<otvet;

}

7)#include <iostream>

using namespace std;

int main() {

 int a = 0, b = 0, c = 0, d = 0;

 int otvet=-(a+b^c+(-b))+a^d;

 cout<<otvet;

}

Объяснение:

4,7(28 оценок)
Ответ:
kolya0125
kolya0125
29.06.2020

const

 n=5; m=6;

var

 a:array [1..n,1..m] of integer;

 b:array of integer;

 i,j:integer;

begin

 setlength(b,0); //пустой динамический массив  

 for i:=1 to n do

   begin

     for j:=1 to m do

       begin

         a[i,j]:=random(41)-20;

         write(a[i,j]:4);

         //

         //Если выполняется условие, то

         //расширяем массив b на ячейку, и

         //в неё записываем значение.

         if a[i,j]<0 then

           begin

             setlength(b,length(b)+1);

             b[length(b)-1]:=a[i,j];

           end;

         //

       end;

     writeln;

   end;

  writeln;

  //

  //Вывод результата

  for i:=0 to length(b)-1 do

   write(b[i]:4);

end.

 

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