ПАСКАЛЬ. Лабораторные работы.

[Marat-ik]

ПОМОГИТЕ(((( ЛАБОРАТОРНЫЕ РАБОТЫ СВЯЗАННЫЕ С ПАСКАЛЕМ(((((

[Marat-ik]

1. Какие выражения не содержат синтаксических ошибок

a. Sin(abs(0,6e3*yt)
b. A div b / c*mod
c. $EF01*1.34E-02/_i7_17
d. 1_2i-exp(y)/2*t
e. Cos(3*x)+0.2

[Marat-ik]

2. Известна цена за килограмм некоторого продукта. Ввести нужный вес в граммах и рассчитать сумму, которую необходимо заплатить.

[Marat-ik]

3. Составить блок схему вычисления корней квадратного уравнения, учитывая, что любой из коэффициентов a,b,c может быть равен нулю.

[Marat-ik]

4. Для натурального числа х напечатать фразу «мы нашли х грибов в лесу», согласовав окончание слова «гриб» с числом х. Пример: «мы нашли 5 грибов», «мы нашли 4 гриба», «мы нашли 42 гриба».

[Marat-ik]

Вариарт5
1. Дана непустая последовательность различных натуральных чисел, за которой следует 0. Определить порядковый номер наименьшего из них.
2. Совершенным числом называется число, равное сумме всех делителей, меньших, чем оно само. Например, 28=1+2+4+7+14. Составить программу, которая проверяет, является ли число совершенным.
3. Каждая бактерия в банке делится на две через каждые 3 минуты. В начальный момент имеется 1 бактерия. Сколько их будет через N минут?

[ROMA2PVT]

вот его => Sos1 темы ищи там задания из последнего поста все.

[ROMA2PVT]

-II-

Var
c,a,b:real;
begin
write('Введите цену за килограмм: ');
readln(c);
write('Введите вес грамм: ');
readln(a);
b:=a/1000;
writeln('Цена за ',b,'-кг товара:=',b*c);
end.

-IV-

Uses crt;
var
  x:longint;
begin
 Clrscr;
   write('X:=');
   readln(x);
     write('Мы нашли ');
         if (x mod 100>=10) and (x mod 100<=19) then write(x,' грибов')
            else
              case x mod 10 of
                 1: write(x,' гриб');
                 2..4: write(x,' гриба');
                 else
                    write(x, ' грибов');
              end;
            write(' в лесу');
      readkey;
end.

[Marat-ik]

спасибо большое)