Перевести с языка паскаля на школьный алгоритмический язык program n_4 var x, a, b, c, s: integer writeln ('Нахождение суммы цифр трехзначного числа') write (' Введите исходное число>>') readln (x) ; a :=x div 100; b :=x mod 100 div 10; c :=x mod 10; s :=a+b+c; writeln ('s= ' , s) end по условию x = ax100 +bx10 +c, конечное решение 123 program n_7; var a, b , c: integer; ans: boolean; begin writeln ('Определение истинности высказывания о равнобедренном треугольнике') write ('Введите значения a, b, c>>') readln ( a,b,c); ans := (a=b) or (a=c) or (b=c); writeln (' Треугольник с длинами сторон ' , a, ',',b,',',c,' является равнобедренным - ', ans) end. в условии написано, что нужно определить истинность высказывания " Треугольник с длинами сторон a,b,c является равнобедренным" для произвольных целых чисел a,b,c
Перевести с языка паскаля на школьный алгоритмический язык program n_4 var x, a, b, c, s: integer writeln ('Нахождение суммы цифр трехзначного числа') write (' Введите исходное число>>') readln (x) ; a :=x div 100; b :=x mod 100 div 10; c :=x mod 10; s :=a+b+c; writeln ('s= ' , s) end по условию x = ax100 +bx10 +c, конечное решение 123 program n_7; var a, b , c: integer; ans: boolean; begin writeln ('Определение истинности высказывания о равнобедренном треугольнике') write ('Введите значения a, b, c>>') readln ( a,b,c); ans := (a=b) or (a=c) or (b=c); writeln (' Треугольник с длинами сторон ' , a, ',',b,',',c,' является равнобедренным - ', ans) end. в условии написано, что нужно определить истинность высказывания " Треугольник с длинами сторон a,b,c является равнобедренным" для произвольных целых чисел a,b,c
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
Алгоритмический язык:
Алгоритм n_4
Объявляем переменные x, a, b, c, s целого типа
Выводим на экран строку "Нахождение суммы цифр трехзначного числа"
Выводим на экран строку "Введите исходное число>>"
Считываем значение x
a := x div 100
b := x mod 100 div 10
c := x mod 10
s := a + b + c
Выводим на экран строку "s= ", s
Конец алгоритма n_4
Алгоритм n_7
Объявляем переменные a, b, c целого типа
Объявляем переменную ans логического типа
Выводим на экран строку "Определение истинности высказывания о равнобедренном треугольнике"
Выводим на экран строку "Введите значения a, b, c>>"
Считываем значения a, b, c
ans := (a = b) or (a = c) or (b = c)
Выводим на экран строку "Треугольник с длинами сторон ", a, ',', b, ',', c, " является равнобедренным - ", ans
Конец алгоритма n_7
По условию x = ax100 + bx10 + c, конечное решение 123.