//pascal abc.net 3.1 сборка 1256 var a,b,c,s,p: real; begin readln(a,b,c); if (a+b> c) and (b+c> a) and (a+c> b) then begin p: =(a+b+c)/2; s: =sqrt(p*(p-a)*(p-b)*(p-c)); writeln('s=',s); end else writeln('такого треугольника не существует.'); end. пример ввода: 3 4 3 пример вывода: s=4.47213595499958
Ответ дал: Гость
моя неделя проходит загружено. половину дня я провожу в школе, потом , репетиторы, выйти на улицу, покататься на санках, поваляться в снегу времени практически а мы что-то говорим о здоровой чтобы я изменил? я бы ввёл электронные учебники и ведь это так бы время, не надо было бы писать в тетрадях уроки, набрал на компьютере и всё. оставалось бы больше свободного времени для прогулок и общения с друзьями.
Ответ дал: Гость
наливаем 9 литров из этого ведра дополна наливаем 5-литровое. осталось 4. выливаем 5-литровое и опять переливаем из 9-литрового - те самые 4 литра. наполняем 9литровое и отливаем в 5литровое до полна - 1 литр. остается 8 литров. выливаем 5-литровое и опять наполняем его из 9-литрового. в 9-литровом осталось 3 литра
Ответ дал: Гость
var a, s: integer; // целочисленный тип данныхbeginwriteln('введите число: '); readln(a); // вводим число (можно больше трех знаков) while a < > 0 do // пока остались цифры в числе begin s : = s + (a mod 10); // отбираем последнюю цифру числа и прибавляем к сумме a : = a div 10; // стираем последнюю цифру числа end; writeln('сумма цифр = ', s) // выводим результатend.
Популярные вопросы