profile
Опубликовано 6 лет назад по предмету Информатика от chicken1000

ПОМОГИТЕ СДЕЛАТЬ БЛОК СХЕМУ!!! На языке Паскаль

1.Заданы стороны треугольника. Проверить является ли он равнобедренным

2. Найти сумму нечетных чисел в промежутке от 20 до n

  1. Ответ
    Ответ дан 1000FORMSofFEAR
    №1
    var a, b, c: integer;
    begin
    read(a, b, c);
    if((a = b) or (b = c) or (c = a)) then
    write('Треугольник равнобедренный')
    else 
    write('Треугольник неравнобедренный');
    end.

    БЛОКСХЕМА:
    начало
    ввод сторон(a, b, c)
    если a = b или b = c или с = a, то
    вывести: 'треугольник равнобедренный'
    иначе вывести: 'треугольник неравнобедренный'
    конец

    №2
    var n, s, i: integer;
    begin
    s := 0;
    read(n);
    for i := 20 to n do begin
    if (i mod 2 <> 0) then s := s + i;
    end;
    write(s);
    end.

    БЛОКСХЕМА:
    начало
    s := 0, i := 20
    ввод числа n
    пока i не равно n
       если i - нечётное, то
          прибавить к s
    вывести  s
    конец

    1. Ответ
      Ответ дан chicken1000
      СПАСИБО
Самые новые вопросы