Подсчитать количество отрицательных чисел среди чисел а, б, с?
Подсчитать количество отрицательных чисел среди чисел а, б, с.
(программирование ветвящихся алгоритмов).
Помогите решить задачу по информатике?
Помогите решить задачу по информатике.
Программирование в среде Basic.
Найти наименьшее из трех чисел.
Какой алгоритм?
Алгоритм по информатике на тему Золушка?
Алгоритм по информатике на тему Золушка.
Что обозначают двойные скобки в алгоритмах по информатике?
Что обозначают двойные скобки в алгоритмах по информатике?
ДАМ 70 БАЛОВ, помогите с информатикой алгоритмы?
ДАМ 70 БАЛОВ, помогите с информатикой алгоритмы.
Помогите решить Информатика алгоритм пожарника?
Помогите решить Информатика алгоритм пожарника.
Информатика?
Информатика.
Алгоритм приготовления блюда"плов".
Алгоритмы, информатика пожалуйста < ; 3?
Алгоритмы, информатика пожалуйста < ; 3.
Помогите составить алгоритм по информатике для рисунка пятиконечная звезда?
Помогите составить алгоритм по информатике для рисунка пятиконечная звезда.
Алгоритм по информатике рецепт блюда?
Алгоритм по информатике рецепт блюда.
Если вам необходимо получить ответ на вопрос ЗАДАЧИ ПО ИНФОРМАТИКЕ ВЕТВЯЩИЕСЯ АЛГОРИТМЫ ПОМОГИТЕ?, относящийся к уровню подготовки учащихся 5 - 9 классов, вы открыли нужную страницу. В категории Информатика вы также найдете ответы на похожие вопросы по интересующей теме, с помощью автоматического «умного» поиска. Если после ознакомления со всеми вариантами ответа у вас остались сомнения, или полученная информация не полностью освещает тематику, создайте свой вопрос с помощью кнопки, которая находится вверху страницы, или обсудите вопрос с посетителями этой страницы.
1. var
a, b, c : integer ;
begin
writeln ('Введите сторону треугольника А') ;
readln (a) ;
writeln ('Введите сторону треугольника B') ;
readln (b) ;
writeln ('Введите сторону треугольника C') ;
readln (c) ;
if (a = b) and (b = c) then writeln ('Треугольник равностороний')
else writeln ('Треугольник не является равносторонним') ;
end.
- - - - - - - -
2.
Var
a, b, c : integer ;
begin
writeln ('Введите сторону треугольника А') ;
readln (a) ;
writeln ('Введите сторону треугольника B') ;
readln (b) ;
writeln ('Введите сторону треугольника C') ;
readln (c) ;
if (a = b) then writeln ('Треугольник равнобедренный')
else writeln ('Треугольник не является равнобедренным') ;
end.
- - - - - - - -
3.
Var
s : char ;
begin
writeln ('Кто ты : Мальчик или девочка?
Введи Д или М : ') ;
readln (s) ;
if s = 'М' then writeln ('Мне нравятся девочки!
') ;
if s = 'Д' then writeln ('Мне нравятся мальчики') ;
end.
1. program wk ;
var a, b, c : integer ;
begin
readln(a) ;
readln(b) ;
readln(c) ;
if (a = b) and (a = c) and (b = c)
thenwriteln('Треугольник равносторонний') ;
end.
2 . program wk ;
var a, b, c : integer ;
begin
readln(a) ;
readln(b) ;
readln(c) ;
if (a = b)
thenwriteln('Треугольник равнобедренный') ;
end.
3. program wk ;
var a : char ;
begin
writeln('Кто ты : мальчик или девочка ?
Введи Д или М') ;
readln(a) ;
If (a = 'Д') and (a'M')then
writeln('Мне нравятся девочки!
')
else writeln('Мне нравятся мальчики!
')
end.