Исправьте программу (lazarus) program project1; var a, b, i, s2, s1, k: integer; begin writeln('a и b'); readln(a, b); if (a< > 0)and(b< > 0)then; k: =a*b; i: =k; while i> 0 do begin s1: =i mod a; s2: =i mod a; end; if s1=0 and s2=0 than; writeln(k=i); i: =i-1; end.

Program Project1;vara,b,i,s2,s1,k:integer;beginwriteln('a и b');readln(a,b);if (a<>0)and(b<>0)then;k:=a*b;i:=k;while (i>0)dobegini:=i-1;if (i mod b = 0) and (i mod a = 0) then break;end;writeln(i);end.

25. Сортировка столбца КОЛИЧЕСТВО по возрастанию. Значит программа отсортирует последний столбец "Количество" по возрастанию (от меньшего к большему).

1. 8 принтер

2. 10 мышь

3. 10 сканер планшетный

И т.д

Мы нашли на какой строчке будет Сканер планшетный. Почему на 3, а не на 2? (в ответах вроде в)3. ) Сложный вопрос. Думаю, что программа начинает искать число с самого начала таблицы, тогда сначала попадется Мышь, а потом Сканер планшетный. ответ в

26. Союз ИЛИ означает, что нас устроит истина одного любого условия или их обоих. Т.е. достаточно,чтобы выполнилось условие цена>20, чтобы запись подошла, или же только продано<50, или их одновременное выполнение. Тогда подойдет карандаш(продано), ручка (цена), тетрадь(продано). Итого 3. ответ в. (Папка не подойдёт т.к. условие цена>20, а 20 не больше 20, если бы было больше или равно, то подошло)

Задание 1

program HelloMoney;

 var

 y, i: integer; // Объявим переменные для количества лет вклада и для счетчика цикла  

p, s: real; //Объявим переменные для количества процентов и величины вклада

begin

write('Какая сумма вклада? ');

readln(s); // Указываем сколько составляет вклад

write('На сколько лет вклад? ');

readln(y); // Указываем на сколько лет вклад

write('Какая процентная ставка?');

readln(p); // Указываем процентную ставку

for i:=1 to y do

s := s + s*p/100; // Прибавляем к вкладу ежегодный процент

write('Сумма денег составит: ', s);

end.

Объяснение: