Информатика | 5 - 9 классы
Переведите пожалуйста на паскаль.
Помогите пожалуйста с паскалем?
Помогите пожалуйста с паскалем.
Переведите на язык паскаль?
Переведите на язык паскаль.
Напишите программу в Паскале Перевод из минут в часы и минуты Переведите 150 минут?
Напишите программу в Паскале Перевод из минут в часы и минуты Переведите 150 минут.
X : = - b / a вычислите через паскаль, напишите чего надо писать в паскальПОМОГИТЕ ПОЖАЛУЙСТА?
X : = - b / a вычислите через паскаль, напишите чего надо писать в паскаль
ПОМОГИТЕ ПОЖАЛУЙСТА!
Паскаль, братцы пожалуйста помогите((?
Паскаль, братцы пожалуйста помогите((.
Напишите , пожалуйста, программу для паскаля?
Напишите , пожалуйста, программу для паскаля.
Паскаль , пожалуйста очень надо?
Паскаль , пожалуйста очень надо.
Пожалуйста запишите в виде ПАСКАЛЯ?
Пожалуйста запишите в виде ПАСКАЛЯ.
Задача по информатике помоги пожалуйста?
Задача по информатике помоги пожалуйста!
5 вариант, решите пожалуйста как обычную задачу а я сам переведу на паскаль!
Переведите на язык программирования (паскаль) 15 БАЛЛОВ ?
Переведите на язык программирования (паскаль) 15 БАЛЛОВ !
На этой странице вы найдете ответ на вопрос Переведите пожалуйста на паскаль?. Вопрос соответствует категории Информатика и уровню подготовки учащихся 5 - 9 классов классов. Если ответ полностью не удовлетворяет критериям поиска, ниже можно ознакомиться с вариантами ответов других посетителей страницы или обсудить с ними интересующую тему. Здесь также можно воспользоваться «умным поиском», который покажет аналогичные вопросы в этой категории. Если ни один из предложенных ответов не подходит, попробуйте самостоятельно сформулировать вопрос иначе, нажав кнопку вверху страницы.
Вот программа :
uses Crt ;
var x, a, y, d, z : real ; n : integer ;
begin
ClrScr ;
Write (' n = ') ;
ReadLn(n) ;
if (n< ; 1) or (n> ; 7) then WriteLn( 'None.
') else
begin x : = 0.
5 ; a : = 4.
3 ; y : = 2.
6 ; d : = 0.
3 ;
if (n = 1) then z : = a - x + y / d else
if (n> ; 1) and (n< ; 5) then z : = 1.
5 * x + 9 * x * x - 1.
25 else
if (n> ; 4) and (n< ; 8) then z : = d - a * sin(x) ;
WriteLn(' z = ', z : 6 : 3) ;
end ;
ReadLn ;
end.