sendrey8542

30.07.2021 14:23 •  Информатика

Скажите, , эти программы правильные? (название проги - номер ))program four; uses crt; var a, b, c, d, kop, rub: real; begin clrscr; writeln('sena 1 kg fruktov'); readln(a); b: =0; c: =0; d: =1000; repeat c: =c+b; writeln('ves fructa ne bolee 150 g'); чreadln(b); d: =d-b; until d< 0; c: =c/1000; a: =a*c; rub: =trunc(a); kop: =(frac(a))*100; writeln(rub: 4: 0,' rub ',kop: 4: 0,' kop'); readkey; end.​program two; uses crt; var a, b, c, d, n: integer; begin clrscr; readln(a); readln(n); c: =0; a: =a*100; while (a> 0) do begin a: =a-(n*2); c: =c+1; end; d: =c div 24; writeln('vsego chasov = ', c); writeln('vsego dney = ', d); readkey; end.program three; uses crt; var a,b,c,chislo1,chislo2,chislo3,max: integer; function summa(n: integer): integer; var s: integer; begin s: =0; n: =abs(n); while n> 0 do begin s: =s+n mod 10; n: =n div 10; end; summa: =s; end; begin clrscr; write('a = '); readln(a); write('b = '); readln(b); write('c = '); readln(c); chislo1: =summa(a); chislo2: =summa(b); chislo3: =summa(c); writeln('chislo 1 = ',chislo1); writeln('chislo 2 = ',chislo2); writeln('chislo 3 = ',chislo3); if chislo1> chislo2 then max: =chislo1 else max: =chislo2; if chislo3> max then max: =chislo3; writeln('max = ',max); readkey; end.program five; uses crt; var b, c, i, j : integer; begin clrscr; c: =0; for i : =1 to 7 do begin for j : =1 to 24 do begin readln(b); if (b< 754)or(b> 771) then c: =c+1; end; end; writeln('davlenie ne sootvetstvovalo norme ',c,' chasov za nedelu'); readkey; end.