М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
artemkafire2005
artemkafire2005
14.10.2020 17:48 •  Информатика

Надо! взамен могу решить вашу ! с клавиатуры вводятся стороны треугольника а, b, c. написать программу , которая в зависимости от введённых сторон определяет какой треугольник ( равносторонний , разносторонний или равнобедренный ). можно в паскале))заранее

👇
Ответ:
gerasimovgleb224
gerasimovgleb224
14.10.2020

program abc;
uses crt;
var a,b,c:real;
begin
writeln('Введите первую сторону: ');
readln(a);
writeln('Введите вторую сторону: ');
readln(b);
writeln('Введите третью сторону: ');
readln(c);
if (a=b) and (b=c) then
writeln('Ваш Треугольник Равносторонний')
else
if (a=b) or (a=c) or (b=c) then
writeln('Ваш Треугольник Равнобедренный')
else
if (a+b<c) or (a+c<b) or (b+c<a) then
writeln('Ваш Труегольник Не существует')
else writeln('Ваш Треугольник Разносторонний');
end.

4,6(18 оценок)
Открыть все ответы
Ответ:
Aysun115
Aysun115
14.10.2020
Написал на VBS, тот же бейсик, который есть в школах

dim years
years = inputbox("Введите ваш возраст")
if years = 1 then msgbox("Мне 1 год") end if
if years = 2 then msgbox("Мне 2 годa") end if
if years = 3 then msgbox("Мне 3 годa") end if
if years = 4 then msgbox("Мне 4 годa") end if
if (years >= 5) and (years <= 19) then msgbox("Мне "+cstr(years)+" лет") end if

if years >= 20 then
dim s
s = "Мне "+cstr(years)
if (years mod 10 = 1) then s = s + " год" end if
if (years mod 10 >= 2) and (years mod 10 <= 4) then s = s + " годa" end if
if (years mod 10 >= 5) and (years mod 10 <= 9) then s = s + " лет" end if
if (years mod 10 = 0) then s = s + " лет" end if
msgbox(s)
end if
4,8(81 оценок)
Ответ:
Camelia1980
Camelia1980
14.10.2020
Что-то меня глючит. Я же вроде как отвечал...

dim years
years = inputbox("Введите ваш возраст")
if years = 1 then msgbox("Мне 1 год") end if
if years = 2 then msgbox("Мне 2 годa") end if
if years = 3 then msgbox("Мне 3 годa") end if
if years = 4 then msgbox("Мне 4 годa") end if
if (years >= 5) and (years <= 19) then msgbox("Мне "+cstr(years)+" лет") end if

if years >= 20 then
dim s
s = "Мне "+cstr(years)
if (years mod 10 = 1) then s = s + " год" end if
if (years mod 10 >= 2) and (years mod 10 <= 4) then s = s + " годa" end if
if (years mod 10 >= 5) and (years mod 10 <= 9) then s = s + " лет" end if
if (years mod 10 = 0) then s = s + " лет" end if
msgbox(s)
end if

VBS
4,6(45 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ