Предмет: Информатика,
автор: Rostique
№1. Составить программу нахождения длины окружности и площади круга по указанному радиусу R.
№2. Дано трехзначное число. Найти произведение цифр числа.
№3. Меньшее из трех чисел увеличить в 3 раза.
Ответы
Автор ответа:
0
var r,l,s:real;
begin
write('R=');read(r);
s:=pi*sqr(r);
l:=2*pi*r;
write('S=',s,';L=',l);
end.
var a,p:integer;
begin
read(a);
p:=(a mod 10)*(a div 100)*(a mod 100 div 10);
write(p);
end.
var a,b,c,min:integer;
begin
writeln('Введи 3 числа');
readln(a,b,c);
min:=a;
if b<min then min:=b;
if c<min then min:=c;
writeln(3*min:4);
readln;
end.
Похожие вопросы
Предмет: Математика,
автор: inziratulegenova
Предмет: Литература,
автор: erkinbeknurislam12
Предмет: Геометрия,
автор: babygirlll57
Предмет: Математика,
автор: svetiki76
Предмет: Химия,
автор: нюря