с информатикой, Задание: постройте таблицу истинности
заранее

А - количество порций эскимо на столе
В - количество стаканчиков на столе

Начало

Ввод данных:
В : = 18
А : = В/3

Действие 1:
В : = В - 3

Действие 2:
А:= А-5

Вывод результатов:
Покажи А
Покажи В

Конец

Протокол выполнения алгоритма:
№ команды  Имя переменной   Значение переменной 
1.                          В                                    18
2.                          А                                      6
3.                          В                                    15
4.                          А                                       1
 

3:

var a,b,c,d,e,f,g:real;

begin

   write('Введите сумму наличных средств (руб): '); readln(a);

   write('Введите стоимость 1 кг конфет (руб): '); readln(b);

   write('Введите массу конфет (кг): '); readln(c);

   write('Введите стоимость 1 кг яблок (руб): '); readln(d);

   write('Введите массу яблок (кг): '); readln(e);

   f := b*c + d*e;

   g := a - f;

   writeln('Стоимость покупки составит ', f:0:2, ' руб.');

   writeln('Сдача ', g:0:2, ' руб.');

end.

4:

var a:real;

begin

   write('Введите длину куба: '); readln(a);

   writeln('Объём куба = ', a*a*a:0:2);

   writeln('Площадь поверхности куба =  ', 6*a*a:0:2);

end.