Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
kroliki
var kol_krol, kol_slon, norma_krol, norma_slon, vsego :Integer; begin norma_krol:=2; norma_slon:=100; WriteLn('Введите,пожалуйста,количесво кроликов'); ReadLn (kol_krol); kol_slon:=3; vsego:=norma_krol*kol_krol + norma_slon*kol_slon; WriteLn('Вам всего понадобится',vsego,'морковок') end.
run
|
edit
|
history
|
help
0
Урок 3 задача 4
Promedio con aprobación
procedure escribir caracter n veces
Вычисление cos(x) с помошью ряда Тейлора
Prioject 19 - Counting Sundays
5161
Урок 3 задача на вывод 1 и 0 как функция целого
Calculatrice 2.0
janja - naloga 2 - 25.1.2012
shift array to left