7класс. turbo pascal №1: с кондитерской фабрики разгружают конфеты в коробках по 10 кг, 5 кг и 1 кг. какое наименьшее количество коробок потребуется для перевозки n килограмм конфет? №2: int(-5, 89) int(0, 53) round(-5, 8) round(5, 2) frac(-17, 4) frac(0, 32) trunc(-17, 4) trunc(15, 2) 45 div 4 15 mod 8 (489 div 10) mod 10

1). 

var a,b,c,n: integer; m: real; begina: =10; b: =5; c: =1; readln (n); if (n mod 10) =0 then m: =n div a; if (n mod 10) =5 then m: =(n div a)+1; if (n mod 10 =1) or (n mod 10 =2) or (n mod 10 =3) or (n mod 10 =4) then m: =(n div a)+c*(n mod 10);   if (n mod 10=6) or (n mod 10=7) or (n mod 10=8) or (n mod 10=9) then m: =(n div a)+1+c*(n mod 5); writeln (m); end. 

 

 

 

2). не понял. 

Program first; uses crt; const n=1000; var   a: array[0..n] of integer;   i,k,z,s,r,p: integer;   begin   clrscr;   randomize;   print('введите количество элементов массива: '); readln(r);   println('значение элементов массива');   for i: =1 to r do begin       a[i]: =random(10)-3;       write(a[i]: 3)       end;   println();     { начало блока вычисления s - суммы отрицательных элементов       и k - количество положительных, меньших заданного z (число "а") }   print('введите число а: '); read(z);   s: =0; k: =0;   for i: =1 to r do begin       if a[i] < 0 then s: =s+a[i];       if (a[i] > 0) and (a[i] < z ) then k: =k+1       end;   writeln('сумма отрицательных элементов ',s);   writeln('количество положительных элементов, меньших заданного ',k);   { конец блока }     { начало блока нахождения номера последней пары       соседних элементов с разными знаками }   p: =1;   for i : = 1 to n-1 do if a[i]*a[i+1]< 0 then p : = i;   if p> 0 then       writeln('номер последней пары соседних элементов с разными знаками: ', p)   else       writeln('массив не содержит элементов с разными знаками');   { конец блока }   end. пример введите количество элементов массива: 12 значение элементов массива   5  5 -1 -2 -1  3  0 -3  4 -1  6  5 введите число а: 6 сумма отрицательных элементов -8 количество положительных элементов, меньших заданного 5 номер последней пары соседних элементов с разными знаками: 10

Pascalabc.net 3.3.5, сборка 1662 от 29.04.2018 внимание! если программа не работает, обновите версию! begin   var s: =readlnstring;   writeln('количество слов в строке равно ',s.towords.count);   writeln('количество цифр в строке равно ',           s.where(c-> c in ['0'..'9']).count) end. пример в россии день победы празднуется 9 мая начиная от 1945 года количество слов в строке равно 11 количество цифр в строке равно 5 2. текстовый файл может содержать столько текстовых строк, сколько в классе учеников. каждый ученик должен прочитать и обработать строку из файла, соответствующую своему порядковому номеру в журнале.