Написать программы к задачам на Паскале.1

Написать программы к задачам на Паскале.1. Аквариум — куб со стороной а метров. Рыба — шар, диаметр b см. Подсчитать количество выплеснутой воды.2. Является ли шестизначный номер счастливым.3. По двум углам определите вид треугольника.4. Два отрезка заданы координатами своих концов. Определить количество общих точек этих отрезков.

в избранное

moratar

20 августа 2022

1) var v1,a,v2,v3,d: integer; beginreadln (a,b); a: =a/10; v1: =a*a*a; v2: =4/3*3,14*(d/2) (d/2) (d/2); v3: =v1-v2; Writeln ("Объем выплеснутой воды ",v3); readln (); end. 2) vari,num,a,b,c,d,e,f, sum1,sum2: integer; beginreadln (num); a: =num div 100000; num: =num mod 100000; b: =num div 10000; num: =num mod 10000; c: =num div 1000; num: =num mod 1000; d: =num div 100; num: =mod 100; e: =num div 10; f: =num mod 10; sum1: =a+b+c; sum2: =d+e+f; If (sum1=sum2) thenWriteln ("Да, является."); else writeln ("Нет, не является."); readln (); end.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Знаете другой ответ?