Переписать программу с Pascal - C (СИ)
Формулировка задачи:
имеется программа на языке паскаль надо переделать на си))если условие задачи нужна будет то напишу))
var a,b,s,i,t:integer; d:array[1..30]of integer; begin randomize; writeln('vvedite vysotu dereva'); readln(b); writeln('vvedite vysotu ulitki'); readln(a); while a>b do begin writeln('vysota ulitki vyshe dereva'); writeln('vvedite druguyu vysitu ulitki'); readln(a); end; repeat writeln('vvedite den nabludeniya'); readln(t); until t<=30; writeln('pogoda: 1-yasno, 0-pasmurno'); for i:=1 to 30 do begin d[i]:=random(2); write(d[i],' '); end; writeln; for i:=1 to 30 do begin if d[i]=1 then begin s:=0; while (a<b)and(s<2)do begin inc(a); inc(s); end; end else if a>0 then dec(a); if i=t then writeln('v den ',t,' vysota=',a); end; writeln('v konce mesyaca vysota=',a); readln; end.
Решение задачи: «Переписать программу с Pascal»
textual
Листинг программы
do { printf("Vvedite denj nabludenija: "); scanf("%d",&t); } while(t>30);
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д