Напишите программу, которая вычислит еженедельный доход предприятия

Question

Напишите программу, которая вычислит еженедельный доход предприятия. Если дано описание: type Zi=(L, Ma, Mi, J, V, S, D); Venit=array [Zi] of real;

Answer 1

58

rewiaca

06 апреля 2023

program Venit; type zi=(L,Ma,Mi,J,V,S,D); Venit=array[zi] of real; var v: Venit; i: integer; suma: real; BEGINfor i: =1 to 7 do begin writeln ('Dati venitul pentru ziua ',i); readln (v[i]); end; {Acum sumam toate numerele si aflam venitul total: }for i: =1 to 7 do suma=: =suma+v[i]; writeln ('Intreprinderea are ',suma: 0:3,'$ pe saptamina'); readln; END. ______suma: 0:3 — pentru a afisa numarul in modul dat: 13,235

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: