// PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программа не работает, обновите версию!
begin
Writeln('S = ',Power(ReadReal('Введите сторону квадрата'),2))
end.
<span>Что бы подробно посмотреть,набери 4004 в браузере,или свой вопрос.
Он всё выдаст)Я бы тебе скопировала,но не могу,так как пишет что нельзя копировать=(И кстати,сделали его в 1971 году.
</span>
var
N, V, K, T: real;
i: Integer;
begin
Write ('Сумма вклада: ');
ReadLn (N);
Write ('Стоимость велосипеда: ');
ReadLn (V);
Write ('Стоимость подержанного авто: ');
ReadLn (K);
Write ('Стоимость нового авто: ');
ReadLn (T);
for i := 1 to 10 do
N := N * 1.07;
Writeln ('Сумма вклада в конце срока = ' + FloatToStr (N));
if N >= T then
Writeln ('На эту сумму можно приобрести новое авто.')
else if N >= K then
Writeln ('На эту сумму можно приобрести подержанное авто')
else if N >= V then
Writeln ('На эту сумму можно приобрести велосипед')
else
Writeln ('На эту сумму нельзя приобрести транспортное средство');
end.
Var z:real; i:integer;
begin
writeln('Введите цену одного килограмма и нажмите <enter> ');
writeln(' (копейки от рублей отделяйте точкой) ');
readln(z); writeln('Вес (граммов) Cтоимость (руб.) ');
for i:=1 to 10 do writeln(i*100:13,z*i/10:10:2); readln
<span>end. </span>
F=A*¬B - А и В зависят от 6-ти переменных, в таблице истинности будет:
2^6 =64 строки
В условии сказано, что А=1 и В=1 в пяти соответствующих строках (¬В=0).
Значение F=A*¬B=1*0=0, то есть достоверно известно,
что F=0 ровно в пяти строках .
В остальных (64-5=59) 59-ти возможно, что F=1.
ответ 59