Информатика | 10 - 11 классы
Напишите пожалуйста программу на c + + , в крайнем на паскале.
Напишите, пожалуйста, программу для турбо паскальПрограмма для счета символов в строке?
Напишите, пожалуйста, программу для турбо паскаль
Программа для счета символов в строке!
Очень нужно!
Помогите!
Напишите программу в Паскаль для этих трех задач?
Напишите программу в Паскаль для этих трех задач.
Напишите программу на языке паскаль?
Напишите программу на языке паскаль.
Напишите программу паскаль : программа вычесления произведения квадратов чисел от 2 до 5?
Напишите программу паскаль : программа вычесления произведения квадратов чисел от 2 до 5.
Напишите программу в паскале abc?
Напишите программу в паскале abc.
Напишите программу в Паскаль?
Напишите программу в Паскаль.
Пожалуйста!
Напишите программу в Паскаль?
Напишите программу в Паскаль.
15б.
Помогите, пожалуйста?
Помогите, пожалуйста.
А то не понимаю.
Напишите , пожалуйста, на паскале программу, именно на паскале.
Вся инфа на скриншоте.
Напишите программу по информатике для паскаля abc?
Напишите программу по информатике для паскаля abc.
Кто может напишите программы на паскаль, пожалуйста?
Кто может напишите программы на паскаль, пожалуйста.
На этой странице вы найдете ответ на вопрос Напишите пожалуйста программу на c + + , в крайнем на паскале?. Вопрос соответствует категории Информатика и уровню подготовки учащихся 10 - 11 классов классов. Если ответ полностью не удовлетворяет критериям поиска, ниже можно ознакомиться с вариантами ответов других посетителей страницы или обсудить с ними интересующую тему. Здесь также можно воспользоваться «умным поиском», который покажет аналогичные вопросы в этой категории. Если ни один из предложенных ответов не подходит, попробуйте самостоятельно сформулировать вопрос иначе, нажав кнопку вверху страницы.
Скорее всего, можно намного короче, но все же она работает, хех))
var t, dt, s, d : byte ;
var v, r : real ;
begin
write('Время : ') ;
readln(t) ;
write('Длительность : ') ;
readln(dt) ;
write('Стоимость минуты : ') ;
readln(s) ;
write('День : ') ;
readln(d) ;
r : = s * dt ;
if(d> ; = 6) and (t< ; 8) or (t> ; 22) then v : = r - ((r / 10) + (r / 100 * 20)) else
begin
if(t< ; 8) or (t> ; 22) then v : = r - (r / 100 * 20) ;
if(d> ; = 6) then v : = r - (r / 10) ;
end ;
write(v) ;
end.