Var a,d,b,s:real;
begin
write('a = '); readln(a);
write('d = '); readln(d);
b:=sqrt(d*d-a*a);
s:=a*b;
writeln('S = ',s);
end.
Пример:
a = 4
d = 5
S = 12
1) var n,i:integer;
begin
for i:=1 to 500 do
if (i mod 3=0) and (i mod 10=4) then
writeln (i);
readln;
end.
2)
var a,b:integer;
begin
readln (a,b);
while (a<>0) and (b<>0) do
if a>b then a:=a mod b
else b:=b mod a;
writeln (a+b);
readln;
end.
Человек в XXI веке, который не будет уметь пользоваться ЭВМ, будет подобен человеку ХХ века, не умевшему ни читать, ни писать
Типо вот таких?
Переводим на русский:
"Нечетное число меньше 75"
Т.к. высказывание должно быть ложно, берем в ответ всё, что либо четно, либо >= 75, либо и то и другое.
Ответ: 46, 80, 75
____
Либо же берем все числа такие, что высказывание становится истинным (то бишь 53 и 69), и затем берем от этого множества чисел инверсию (т.е. всё, кроме них самих)