Задать вопрос!

Задать вопрос!

Все категории

Евгений Добрый [7]

4 года назад

5

Известна сумма денег, имеющаяся у покупателя и стоимость одной единицы товара. Сколько единиц товара сможет купить покупатель и

какова его сдача?
В ПИТОНЕ

Информатика

1 ответ:

лешечка4 года назад

0 0

Сделай цикл while пока денег не будет меньше цены товара

Читайте также

Периметр треугольника равен Р, длина одной стороны равна а, другой - b . Найти длину третьей стороны.

Наталья Васильевн...

C-третья сторона, С=З-а-b

0 0

4 года назад

Pascal.Составьте программу замены местами в массиве B(N) первого положительного и минимального элементов. Спасибо заранее

Онцилла

Program gt;
var b:array[1..100]of integer;
r,i,n,q,min,t:integer;
begin
read(N);
q:=0;
for i:=1 to n do
begin
read(b[i]);
if(b[i]>0)then begin
q:=q+1;
if(q=1)then begin
r:=i;
t:=b[i];
end;
end;
end;
min:=b[1];
for i:=2 to n do
if(b[i]<min)then min:=b[i];
for i:=1 to n do
begin
if(b[i]=min)then b[i]:=t;
if(i=r)then b[i]:=min;
write(b[i],' ');
end;
end.

0 0

3 года назад

Заполните одномерный массив случайными числами найдите и вывести на экран наибольшее его элементы и порядковый номер этого элеме

marisha777

===== PascalABC.NET =====

begin

var n := ReadInteger('n =');

var a := ArrRandom(n, -99, 99);

a.Println;

var i := a.IndexMin;

Println('Минимальный элемент', a[i], 'имеет номер', i + 1)

end.

0 0

4 года назад

С клавиатуры вводится матрица вещественных чисел размером N строк на M столбцов. N не превосходит 10, M не превосходит 20. Найти

Alex1109 [7]

// PascalABC.NET 3.2, сборка 1431 от 28.04.2017
// Внимание! Если программа не работает, обновите версию!

begin
var n:=ReadInteger('Количество строк в матрице:');
var m:=ReadInteger('Количество столбцов в матрице:');
Writeln('*** Исходная матрица [',n,',',m,'] ***');
var a:=ReadMatrInteger(n,m);
var z:=ReadInteger('Z=');
var s:=a.ElementsWithIndexes.Where(x->abs(x[2])<=z);
if s.Count>0 then begin
    var t:=s.First;
    Writeln('Строка ',t[0]+1,', столбец ',t[1]+1)
    end
else
    Writeln('Элемент не найден');
end.

Пример
Количество строк в матрице: 4
Количество столбцов в матрице: 5
*** Исходная матрица [4,5] ***
-33 -46 7 48 -44
-13 -3 -13 -10 48
-18 -25 -39 -23 -44
28 32 -1 39 3
Z= 5
Строка 2, столбец 2

0 0

4 года назад

Расшифруйте слова бнаолквнаогукчиенбзорание спасибо

Андрей Зайнагабдинов [7]

1. балкон
2. гавно (сори что придумал)
3. учебник

0 0

4 года назад