Нужна Задания для тренировки:

Таблицы. (Построить.)

A & B ∨ A ̅ & B

A∨В ̅ &С

А ∨В ̅&(A ̅∨С)



4) Для каких из указанных значений числа X истинно высказывание:

(X > 5) ИЛИ ((X < 3) И (X > 1))?

1,2,3,5,10

5) Для какого из приведённых имён истинно высказывание: (Первая буква гласная) И НЕ(Третья буква согласная)?

1) Елена

2) Полина

3) Кристина

4) Анна

6) Для каких из указанных значений числа X истинно высказывание:

(X > 10) И ((X < 4) ИЛИ (X > 15))?

5, 10, 15, 20, 25

4.
var
a:real;
begin
write('Введите количество мегабайт=');read(a);
writeln('Количество килобайт=',a*1024);
writeln('Количество байт=',a*1024*1024);
writeln('Количество бит=',a*1024*1024*8);
end.

5.
var
a,b,c,p,S:real;
begin
write('Введите сторону a=');read(a);
write('Введите сторону b=');read(b);
write('Введите сторону c=');read(c);
P:=(a+b+c)/2;
S:=sqrt(p*(p-a)*(p-b)*(p-c));
write('S=',s:5:2);
end.

6.
var
a:integer;
begin
write('Введите количество суток=');read(a);
writeln(24*a,' ','часов');
writeln(60*24*a,' ','минут');
writeln(60*60*24*a,' ','секунд');
end.

Данных в задаче мало, так как выплаты по кредиту зависят от вида платежа (дифференцированный или аннуитетный). С точки зрения написания программы, возможно, интереснее дифференцированный, когда выплата по основному долгу постоянная, а проценты уменьшаются (т.к. уменьшается оставшаяся сумма долга).
Программа на паскале для такого случая (выплаты раз в год):
var sum,s,c,p1,p2:real; y,i:integer;
begin
sum:=40000;
y:=4;
c:=25;
p1:=sum*c/100;
s:=0;
writeln('Основной долг   Проценты');
 for i:=1 to y do
  begin
  p2:=sum*c/100;
  s:=s+p1+p2;
  sum:=sum-p1;
  writeln(p1:5:2,' ':8,p2:6:2);
 end;
 writeln('За 4 года выплачено ',s:5:2);
end.

Результат:
Основной долг   Проценты
10000.00        10000.00
10000.00        7500.00
10000.00        5000.00
10000.00        2500.00
За 4 года выплачено 65000.00