1 var i, minus, plus, zero: integer; t: array [1..15] of integer; begin minus := 0; plus := 0; zero := 0; for i := 1 to 15 do begin readln(t[i]); if t[i] > 0 then plus := plus + 1; else if t[i] < 0 then minus := minus + 1; else zero := zero + 1; end; end.
2 var stroke: string; begin readln(stroke); if length(stroke) mod 2 = 0 then writeln('Четно'); else writeln('Нечетно'); end.
3 (Сейчас далеко от компа, когда буду рядом отредачу)
4 var max, min, i: integer; A: array[1..20] of integer; begin min := a[1]; max := a[1]; for i := 2 to 15 do begin if a[i] > max then max := a[i]; if a[i] < min then min := a[i]; end; end.
uses crt; var a,i,j,n:integer; begin writeln('ВВедите кол. конфет в (кг)'); read(a); n:=0; if a>=10 then begin n:=n+ a div 10; a:=a-(a div 10*10); end; if (a>=5) and (a<10) then begin n:=n+ a div 5; a:=a-(a div 5*5); end; if (a>=1) and (a<5) and (a<10) then begin n:=n+ a div 1; a:=a-(a div 1*1); end; writeln('Общее количество коробок = ',n); end.
2 задача uses crt; var a,i,j,n:integer; begin writeln('Введите кол. суток'); read(a); writeln('Количество часов в ',a,' сутках = ',a*24); writeln('Количество минут в ',a,' сутках = ',a*24*60); writeln('Количество секунд в ',a,' сутках = ',a*24*60*60); end.
