Const c=4190;//Дж/кгvar v1,v2,S1,S2,n:integer;t0,t1,t2,i:integer;S,deng:real; begin writeln('Введите сумму за один Клвт'); readln(deng); writeln('Введите за сколько времени нужно нагреть воду в минутах '); readln(n); writeln('Введите начальное значение и конечное температуры'); readln(t0,t1); writeln('Введите сколько литров воды нужно нагреть первый раз '); readln(v1); for i:=t0 to t1 do S1:=c*v1*(t2 - t1) div n; writeln('Введите конечное значения температуры для нагрева воды второй раз '); readln(t2); writeln('Введите сколько литров воды нужно нагреть второй раз '); readln(v2); for i:=t0 to t2 do S2:=c*v2*(t2-t0) div n; S:=(S1+S2)/10000; writeln('Киловат=',S:3:2); writeln('Сумма=',S*deng); end.
Школьный обед - меню (список блюд с ценой), сколько человек подписаны на бесплатный/комплексный обед, какой объем блюд нужно приготовить к обеду, время обеда и тд
Ремонт квартиры - какие изменение необходимо сделать, бюджет, кто будет делать, материалы и их приобретение, инструменты, рассчетное время ремонта и тд
Пассажир поезда - имя, место, билет, постель, чай, спутники, багаж, от куда и куда, поезд и вагон
Дом, в котором ты живешь - адрес, этажность, материал стен, коммуникации, год сдачи, кол-во подьездов и тп
Ремонт квартиры - какие изменение необходимо сделать, бюджет, кто будет делать, материалы и их приобретение, инструменты, рассчетное время ремонта и тд
Пассажир поезда - имя, место, билет, постель, чай, спутники, багаж, от куда и куда, поезд и вагон
Дом, в котором ты живешь - адрес, этажность, материал стен, коммуникации, год сдачи, кол-во подьездов и тп