создать программу
5-9 класс
|
x = b!*1\a^2
( а - в квадрате)
Если не проходили очистку экрана - удали Uses Crt и ClrScr.
Program G;
Uses Crt;
Var x: real; b, Fb, a, i: integer;
Begin
ClrScr;
Writeln('Введите a и b');
Readln(a, b);
Fb:=1; For i:=1 to b do
Fb:=Fb*i; X:= (Fb*1)/sqr(a);
Writeln('X = ', X:4:4);
Readln;
End.
Другие вопросы из категории
Текстовый редактор - программа, предназначенная длясоздания, редактирования и форматирования текстовой информации
модель....
натуральная(материальная) модель....
информационная модель....
Читайте также
read.writeln.else.to.if и тд которые сможете
Вот пример идеи для программы, в академию поступают какое то количество учеников, нужно написать сколько учеников сдали документы, сколько пришли на экзамен, и сколько учеников кто прошло и не прошло
возможно не возможно создать программу на этой идее, тогда прделагайте свои со своими программами , пожалуйста помогите!
Если дано трехзначное число, например 123 его можно представить в виде 3+2*10+1*10*10. Воспользовавшись этой информацией, создайте программу, которая, получая от пользователя трехзначное число, будет определять из каких цифр оно состоит и выводить их через пробел (например, 1_2_3).
Поменять местами первый элемент масива и максимальный.
Заранее Спасибо) Помогите пожалуйста) Очень срочно!!)
var a: array [1..20] of integer;