4^4 =256 (мало, не хватает до 300)
4^5 =1024 -----> 5 лампочек
Var
t,d,S:real;
begin
write('Введите значение t=');read(t);
write('Введите значение d=');read(d);
S:=Pi/4*(sqr(d+t*2)-sqr(d));
writeln('Площадь кольца=',S:5:2);
end.
Var m1, V1: integer; {первое тело}
m2, V2: integer; {второе тело}
begin
Write('Введите массу первого тела в граммах'); ReadLn(m1);
Write('Введите объем первого тела в кубических сантиметрах'); ReadLn(V2);
Write('Введите массу второго тела в граммах'); ReadLn(m2);
Write('Введите объем второго тела в кубических сантиметрах'); ReadLn(V2);
if (m1/V1)>(m2/V2) then WriteLn ('ПЛАВАЕТ')
else WriteLn('ТОНЕТ');
ReadLn;
end.
Решение, который дал другой пользователь, слишком сложное. Я могу предложить альтернативный вариант, который будет гораздо проще в понимании.
Var a,s,s1:integer;
Begin
write('Введите число -> ');
readln(a);
s1:=1;
while a>0 do
begin
s:=s+(a mod 10);
s1:=s1*(a mod 10);
a:=a div 10;
end;
writeln('Сумма цифр числа равна -> ',s);
writeln('Произведение цифр числа равно -> ',s1);
End.
А где варианты ответов?
а по логике от 7,1 до 7,9