Составить программы для данных .
на языке паскаль
!
помошник12345678910
3
02.12.2019 08:45
0
Другие вопросы по теме Информатика
candiesgirl16
29.09.2019 21:10
скрытник
29.09.2019 21:10
Deer22
20.11.2019 12:31
Morenova123456
20.11.2019 12:31
evgendm555
20.11.2019 09:34
8Евген8
20.11.2019 09:35
Alishkek
04.08.2019 05:00
syrmilyj
04.08.2019 04:50
ддд4умник
11.08.2019 13:50
Популярные вопросы
- Древние люди научились изготавливать нуклеусы, скребки, отщепы в эпоху А) палеолитаВ)...
2 - Дано:угол 1= угол 2 МК=РL N -середина МРNL =10смНайти -NK...
2 - Как решить это уровнение? 26*(x+427) =15756...
3 - «Да» – «Нет» (проверь себя)1. В эпоху энеолита в Южном Казахстане происходило...
1 - Нужно решить уравнение реакции Дайю Только нормально...
1 - Определите размер броска с учётом погрешности ...
3 - Какая роль эпизода в рассказе Станционный смотритель...
3 - Portugal is a small country. (IT) only neighbour is Spain....
2 - Решите систему уравнений: {x^2+y^2=5 , xy=6 ( распишите решение, без него кидаю...
3 - 379. Бос орындарды толтырыңдар: 25 401)273)ІІ24 П482421492)76304)143 15 0 27ІІ...
3
var d,k: integer;
begin
write ('d = ');
readln (d);
write ('k = ');
readln (k);
if k<18 then writeln ('F = 4d + 9 = ',4*d + 9) else
if k>25 then writeln ('F = 8 - d = ',8 - d) else
writeln ('F = 10 - d^2 = ',10 - d*d)
end.