помогите информатика тема паскаль

+ 0 -

Zelonezelonez

24 марта 2015 г., 1:52:12 (9 лет назад)

z20)

Рядок 5: у дужки треба додати с. Інакше компютер не врахує третю сторону і видасть помилку.

Рядок 7: у перших і третіх дужках треба поміняти знак, бо сума двох сторін має бути більша за третю, щоб трикутник існував.

Решту напишу в особистих повідомленнях коли зможу.

+ 0 -

Zhora123

24 марта 2015 г., 2:40:43 (9 лет назад)

Program z20
строка 5 - пропущен ввод третьей стороны, должно быть:
  readln(a,b,c)
строка 7 - должно быть:
  if (a+b>c) and (b+c>a) and (a+c>B) then

Program z21;
uses crt;
var
  a,b: real;
begin
  writeln('*** alphaues is thinking... ***');
  writeln('***          OK             ***');
  write('Введите число а '); readln(a);
  write('Введите число b '); readln(b);
  if a>b then
      writeln('a>b    Результат: ',a-5)
    else
      if a<b then
          writeln('a<b    Результат: ',b-5)
        else
          writeln('a=b    Результат: ',b-5);
end.

Program z22;
uses crt;
const n = 100;
const m = 500;
var
  sum,i: integer;
begin
  writeln('*** alphaues is thinking... ***');
  writeln('***          OK             ***');
  sum:=0;
  for i:=n to m do
     sum:=sum+i;
  writeln('Сумма чисел от ',n,' до ',m,' равна',sum);
end.

Program z23;
uses crt;
var
  mas:array[1..3] of real;
  k,i:integer;
begin
  writeln('*** alphaues is thinking... ***');
  writeln('***          OK             ***');
  k:=0;
  for i:=1 to 3 do
    begin
      write('Введите ',i,'-е число: '); readln(mas[i]);
      if mas[i]=0 then k:=k+1;
    end;
  writeln('Количество чисел, равных 0: ',k);
end.

Program z24;
uses crt;
var
  a,b,i,sum: integer;
begin
  writeln('*** alphaues is thinking... ***');
  writeln('***          OK             ***');
  write('Введите число A '); readln(a);
  write('Введите число B '); readln(b);
  sum:=0;
  for i:=a to b do
    if (i>0) and (i mod 4 = 0) then
      sum:=sum+i;
  writeln('Сумма целых положительных чисел, кратных 4, из интервала от ',a,' до ',b,', равна ',sum);
end.