Program a;
uses crt;
var i:integer;
a: array [1..100] of real;
s: real;
begin
clrscr;
for i:=1 to 100 do begin
readln (a [i]);
s:=s+a [i];
end;
writeln (s);
end.
смотри описание блок схемы на картинке
Var
a, b: integer;
begin
write('введите a,b ');
readln(a, b);
if ((a + b) > 0) and ((a + b) mod 10 = 3) then
writeln((a + b) * 2)
else
writeln(a + b);
end.
Тест №1
введите a,b 10 3
26
Тест №2
введите a,b 5 6
11
F= 4* 32*2^10 *32 *2*60 = 2^2 * 2^5 * 2^10 *2^5 *2^3 *15=
=2^25 *15 бит = 2^2 * 15 Мбайт = 60 Мбайт
Ответ 60 Мбайт
А = 1 "И" "Не А" = 1 то логическая формула равна нулю
А = 1 "И" "Не А" = 0 то логическая формула равно единице
А = 0 "И" "Не А" = 1 то логическая формула равна нулю
А = 0 "И" "Не А" = 0 то логическая формула равна нулю
Пояснение. "и" - это конъюнкция. В ней её переменные равны 1 только в том случае когда обе переменные истины. То есть 1. А так как Не А - это отрицание. То любое число становится противоположным. В данном случае ноль будет единицой