Var s,n:integer;
begin
repeat
readln(n);
if (n mod 3=0) and (n<10) then s:=s+n;
until n=0;
writeln('S=',s);
<span>end.</span>
// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
function FS(a,b:real):=0.5*a*b;
begin
var a,b:real;
Write('Катеты первого треугольника: '); Read(a,b);
var S1:=FS(a,b);
Write('Катеты второго треугольника: '); Read(a,b);
var S2:=FS(a,b);
if S1>S2 then Writeln('Площадь первого треугольника больше')
else
if S1<S2 then Writeln('Площадь второго треугольника больше')
else Writeln('Площади треугольников равны')
end.
<u><em>Тестовое решение</em></u>
Катеты первого треугольника: 4.18 6
Катеты второго треугольника: 5.4 3.9
Площадь первого треугольника больше
Ищ микросистем. программ .
Если скобки проставлены верно, то выражение тождественно истинное (всегда равно True). Действительно, если рассчитать выражение в последней скобке, то получим:
a·c<b или 1·(-5)<0 то есть получим выражение -5<0, что дает истинное выражение в последней скобке. Выражения в первой и второй скобках объединены операцией - V - "дизъюнкция", или "логическое сложение". Из теории логики известно, что результатом дизъюнкции будет False только в одном случае, если оба аргумента операции равны False. В остальных случаях получится всегда True.
Так как у нас выражение во второй скобке True, то и всё выражение тоже равно True. При этом не имеет значения, какое выражение получится в первой скобке.