Var i,p: real; begin i: =0.1; p: =1; while (i< =10) do begin p: =p*(1+sin(pi*i/180)); i: =i+0.1; end; writeln ('rezultat: ',p); readln; end.
Спасибо
Ответ дал: Гость
может кто перепишет на паскаль
вот на c:
#include < stdio.h> int main(void){ int km, day; day = 1; km = 10; while (km < = 200) { if (km == 20) { printf("20km in %d day\n", day); } km += km / 10; day++; } printf("< 200km in %d day", day); printf("\n"); system("pause"); return 0; }
Ответ дал: Гость
по одному.
обь в канал, мир,енесей,россия проплыли канал. обь выплыла и поплыла себе куда надо.
Популярные вопросы