логично будет то что будет напечатано. Напечатал Даже если ты не печатает после выполнения приведенного фрагмента программы если это ты напечатал в Pascal После выполнения фрагмента программы тогда он выведет ответ который надо вывести и вообще надо уточнять где именно ты это печатаешь
Var s,i:integer;
begin
s:=0;
for i:=10 to 99 do
if (i mod 3 = 0) and (i mod 5 <> 0) then s:=s+i;
writeln(s);
end.
Program task1;
var a, b, c, p, s :real;
begin
readln(a,b,c); if (a + b > c) and (a + c > b) and (b + c > a) then begin writeln('Могут быть сторонами треугольника'); p:= (a + b + c)/2; s:= sqrt( p * (p - a) * (p - b) * (p - c) ); writeln('Площадь равна ',s); end else writeln('Не могут быть сторонами треугольника');
<span>end.
program task2;
var a, b, c :real; d :integer;
begin
write('Введите числа: '); readln(a,b); write('Введите номер действия: '); readln(d); case d of 1: c:= a + b; 2: c:= a - b; 3: c:= a * b; 4: c:= a / b; end; writeln(c);
<span>end.</span></span>
A:
Var i,s:integer;
Begin i:=20;s:=0;
While i<=99 do
Begin
s:=s+i;
i:=i+1;
End;
writeln('Сумма',s);
readln;
End.
B:
Var
i: integer;
x: real;begin
x := 0; i := 0;
while i < 10 do
begin inc(i);
x := x + 1/i;
end;
writeln(x);end.
C я не знаю как