Собака родовое все остольные видовые
<span>program test;
var
i, n: word;
begin
write('Введите число: ');
readln(n);
for i := 1 to n do begin
write(i, ' ')
end;
<span>end.
Блок-схему прикрепил</span></span>
Должно быть так. Программа работает,но я не уверена в точности на 100%.
А так,все работает без сбоев,результаты выдает верные.
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>