1.program plo;
program plo;
var a, b, y: integer;
s:real;
const pi=3.14;
begin
writeln('Длина сторон: ');
readln(a, b);
writeln('Угол: ');
readln(y);
s:=0.5*a*b*sin(y*pi/180);
writeln('S= ', s)
end.
2. program V;
var a, b: integer;
s1, s2:real;
const pi=3.14;
begin
writeln('Высота H= ');
readln(a);
writeln('Радиус R= ');
readln(b);
s1:=pi*a*sqr(b);
s2:=pi*a*sqr(b)/3;
writeln('Объем цилиндра = ', s1);
writeln('Объем конуса = ', s2);
end.
Можно воспользоваться функцией <span>UpCase</span> или сделать 33 if'а.
a = float(input('a = '))
c = input()
b = float(input('b = '))
if c == "-" :
////print (a-b)
elif c == "/" :
////if c != "0" :
////////print (a/b)
////else :
////////print("Деление на ноль!")
elif c == "*":
////print(a*b)
elif c == "mod":
////print (a % b)
elif c == "pow":
////print(a ** b)
elif c == "div":
////print(a // b)
elif c == "+":
////print(a+b)
все '/' ето 1 пробел
Сравни 4 ряда чисел и найди среди них лишний ряд. Решение обоснуй. 1, 4, 7, 10, 13 2, 5, 8, 11, 14 3, 4, 5, 6, 7 3, 6, 9, 12, 15
Maria1983
3 ряд лишний ,потому что в остальных рядах прибавляется на 3 ,а в 3 на 1
У кожному квадраті щось напиши.Але не пиши забагато.Орієнтована кількість речень на слайді-до пяти.Використовуй короткі речення.У кожному реченні-до восьми слів.Щоб створити презентацію треба запустити на виконання PowerPoint.Це робиться так:Вибери кнопку Пуск.Послідовно вибери <u>Усі програми,Microsoft Offise.Microsoft Office PowerPoint2007</u>
