if a mod 2= 0 then writeln ('четное') else writeln('не четное');
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; }
Ответ дал: Гость
program sir; var y,x,h: real; beginx: =280; h: =0.1; while h< =1 do begin y: =x*h; writeln('цена за ',h*1000,' грамм ',y,' руб'); h: =h+0.1 end; end.
Ответ дал: Гость
решаем относительно a: a=(-6*x2-c)/x4=-6*x2/x4-c/x4.
Популярные вопросы