<вещественное>::=<целое> <e> <масштабный множитель> | <целое> <.> <целое без знака> | <целое> <.> <целое без знака> <e> <масштабный множитель>
Если ты про обычный компьютер, то из: системного блока, монитора, клавиатуры, мышки и ауди колонок.<span />
Басаргисидаса.
Убираем все буквы 'с' и гласные после них-и получается исходное слово
Sub aaa()
r = CDbl(InputBox("Введите радиус"))
Pi = 4 * Atn(1)
s = Pi * r ^ 2
c = 2 * Pi * r
MsgBox "S=" + CStr(s) + ", C=" + CStr(c), vbOKOnly
End Sub
№1 var s,x,n,i:integer;begins:=0;write('Введите количество чисел: ');readln(n);writeln('Введите числа: ');for i:=1 to n dobeginreadln (x);s:=s+xend;writeln('Сумма чисел равна ',s);end.
№2 var n,i,p:integer;beginp:=1;write('Введите количество чисел: ');readln(n);for i:=1 to n dop:=p*i;writeln('Произведение чисел равнo ',p);end.
Подробнее - на Znanija.com -
znanija.com/task/14923730#readmore