Продолжительность занятия —90 минут, после 1-го, 2-го занятия перемены по 10 минут, а после 3-го – 40 минут. дан номер занятия (число от 1 до 6). определите, когда заканчивается занятие.
Через 630мин var y1,y2,y3,y4,y5,y6,rez:integer; begin y1:=90+10; y2:=90+10; y3:=90+40; y4:=90+10; y5:=90+10; y6:=90+10; rez:=y1+y2+y3+y4+y5+y6; writeln(rez); end.
По моему так: program p; var a,b,c:integer; begin writeln('первое число:'); readln(a); writeln('второе число:'); readln(b); writeln('третие число:'); readln(c); if (a>b) and (a>c) then writeln('Первое число является наибольшим'); if (a>b) and (a<c) or (a<b) and (a>c) then writeln('Первое число является средним'); if (a<b) and (a<c) then writeln('Первое число является наимешим'); if (b>a) and (b>c) then writeln('Второе число является наибольшим'); if (b>a) and (b<c) or (b<a) and (b>c) then writeln('Второе число является средним'); if (b<a) and (b<c) then writeln('Второе число является наимешим'); if (c>b) and (c>a) then writeln('Третие число является наибольшим'); if (c>b) and (c<a) or (c<b) and (c>a) then writeln('Третие число является средним'); if (c<b) and (c<a) then writeln('Третие число является наимешим'); end.
Var s: string; i, z, n, a: integer; begin readln(a); s := floattostr(a); for i := 1 to length(s) do begin if (s[i] = '0') then inc(z); if (s[i] = '9') then inc(n); end; writeln(z, ' ', n); if (z > n) then writeln('"0" > "9"'); if (z < n) then writeln('"0" < "9"'); if ((z = 0) and (n = 0)) then writeln('"0" = "9" = 0!') else if (z = n) then writeln('"0" = "9" = ', z); end.
Только я тут испугался аж: всё правильно, а не так пишет х) Если ввести число, начинающееся с нуля, то первые нули отбросятся:)
var
y1,y2,y3,y4,y5,y6,rez:integer;
begin
y1:=90+10;
y2:=90+10;
y3:=90+40;
y4:=90+10;
y5:=90+10;
y6:=90+10;
rez:=y1+y2+y3+y4+y5+y6;
writeln(rez);
end.