составить алгоритм перевода саженей в метры для значений длин от 1 до 20 саженей.
10-11 класс
|
Progam One;
var a,b:real;
begin
write('Введите длину в саженях');
readln(a);
writeln(b:=a*2,1336);
readln;
end.
нужен алгоритм или программа? на паскале?
Другие вопросы из категории
ПОСЛЕДОВАТКЛЬНОСТЬ НАЯИНАЕТСЯ ТАК:
ЕЕЕЕЕ
ЕЕЕЕИ
ЕЕЕЕО
ЕЕЕИЕ
КАКАЯ ОМЬМНАЦИЯ БУДЕТ НА 241 месте?
Const n=6;m=4;
Var A:array[1..n,1..m] of integer;
i,j,k:byte;
Begin
For i:=1 to n do
Begin
For j:=1 to m do
Begin
A[i,j]:=random(31)-15;
write(A[i,j]:4);
End;
writeln;
End;
write('Строки в которых один нулевой элемент: ');
For i:=1 to n do
Begin
k:=0;
For j:=1 to m do
if A[i,j]=0 then inc(k);
if k=1 then write(i:2);
End;
readln;
End.
Читайте также
циклического алгоритма. Заранее спасибо :)
градусы по шкале Фаренгейта (F) для значений температуры от 0
0С до 400С с
шагом 5
0С. Формула перевода F=1,8С+32.
Паскаль.Циклы с условием
2.Составить алгоритм вычисления разности кубов цифр, заданного восьмизначного числа.
3. Для заданного действительного числа К вычислить значение произведения
(99/k^3-98)*(97/k^3+96)*(95/k^3-94)*...*(3/k^3+2)
мер в таблице.Произвести отладку и проверить работу программы для произвольно заданных элементов таблицы. ПОЖАЛУЙСТА ПОМОГИТЕ ХОТЬ ПРОГРАММУ СОСТАВИТЬ!!! СРОЧНО)