ПОМОГИТЕ СДЕЛАТЬ БЛОК СХЕМУ!!! На языке Паскаль 1.Заданы стороны треугольника. Проверить

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

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

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

Задать свой вопрос
Юрий Ильевич
Блок-схема не может быть на каком-то языке программирования. Она делается на "языке условных графических обозначений" и является самостоятельным документом. Так что Паскаль здесь не при чем.
Роман Транасейчук
Блок-схема не может быть на каком-то языке программирования. Она делается на "языке условных графических обозначений" и является самостоятельным документом. Так что Паскаль тут не при чем.
1 ответ
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 lt;gt; 0) then s := s + i;
end;
write(s);
end.

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

Ванька
СПАСИБО
Таисия Тер-Ешазарова
СПАСИБО
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт