с контрольной по информатике 11 может кто нибудь знает скиньте?

4. Создать за на определение модели машины, обладающей наименьшей скоростью.

5.Создать за на определение модели машин у которых объем двигателя больше 1500 мл.

6. Создать форму и добавить в базу данных между 3 и 4-ой записью запись о машине Таврия.

7. Выдать отчет. Поля отчета:
• модель (в алфавитном порядке)
• скорость
• мощность

обычно 1 символ = 1 байт = 8 бит, если другое не оговаривается в условии следовательно:

14400 * 10 : 8 = 18000 символа

336600 * 10 * 8 = 420750 символа

program p_1

var

a: string

begin

writeln ('vvedite nazvanie rek');

read (a);

if (a='волга,днепро,нёман,енисей')then

writeln ('в беларуси протекают только днепро,нёман');

end.

uses crt; var n,i: integer; a: array[1..1000] of integer; beginread(n); for i: =1 to n do read(a[i]); for i: =1 to n do beginif a[i]< 0 then a[i]: =abs(a[i]); for i: =1 to n do write(a[i],' '); end.

прогоняем числа от 10 до 99 в цикле, учитываем при выводе отрицательные числа.

на  tpascal:

var i: integer;

begin

for i: =10 to 99 do begin

if i mod 3 = 2 then

writeln (i,' ',-i,' ');

i: =i+1;

end;

readln

end.