Установите соответствия integer byte boolean char string вщественные числа, логические значения, символьный тип, числа в диапозоне от 0 до 255, строковый тип pascal
program z1; var n,m:integer; rost,nine_a,nine_b:real; begin write('Введите количество учинеков 9а класса: '); readln(n); write('Введите количество учинеков 9б класса: '); readln(m); writeln('Вводите рост каждого из учинеков 9а по очереди'); for i:integer :=1 to n do begin write(i,': '); read(rost); nine_a:=nine_a+rost; end; nine_a:=nine_a/n; // средний рост 9а writeln('Вводите рост каждого из учинеков 9б по очереди'); for i:integer :=1 to m do begin write(i,': '); read(rost); nine_b:=nine_b+rost;end; nine_b:=nine_b/n; // средний рост 9б if nine_a > nine_b then write('Средний рост учеников 9а больше.') else if nine_a < nine_b then write('Средний рост учеников 9б больше.') else write('Средний рост учеников 9а равен среднему росту учеников 9б.'); end.
1) var a:string; i, o: Integer; p: Real; begin readln(o); a := inttostr(o); for i := 1 to length(a) do p := p + strtoint(a[i]); if (sqr(o) = p*p*p) then writeln('true') else writeln('false'); end.
2) var a:string; i, o, p: Integer; begin readln(o); a := inttostr(o); for i := 1 to length(a) do p := p + strtoint(a[i]); if (p mod 3 = 0) then writeln('true') else writeln('false'); end.
3) var a, b, c: real; begin readln(a, b, c); if ((a = b) and (b = c)) then writeln('true') else writeln('false'); end.
boolean - логические значения
char - символьный тип
string - строковый тип
integer - вещественные числа