1) var s,a,b,c:real; begin a:=8; b:=3; c:=-2; s:= 1/2[max(a,b,c)+min(a,b,c)]; end. 2) var s,a,b,c:real; begin a:=1; b:=4; c:=16; s:= 1/2[max(a,b,c)+min(a,b,c)]; end.
В конце 1975 года Стив Возняк завершил прототип компьютера, который вскоре станет известен как Apple I. Возняк в то время работал в НР. Но этот проект был им неинтересен, так что он попросил дать им вольную. 1 апреля 1976 года Стив Джобс, Стив Возняк и инженер из Atari Рональд Уэйн основали Apple. Первым продуктом под этим именем был компьютер Возняка. Apple I был основан на 8-битном процессоре MOS Technology 6502, с частотой меньше 1 МГц. Это был упрощенный вариант более дорогого чипа Motorola 6800. Примерно аналогичным по параметрам был и Intel 8080, но он при этом был дороже. У компьютера был встроенный выход на телевизор, разъемы для 8 Кб памяти, интерфейсы клавиатуры и кассетного магнитофона. Корпус, БП, клавиатура и телевизор в комплект не входили, покупатель должен был раздобыть их самостоятельно.
var a, b, c:String; begin a := 'Я очень хорошая вычислительная машина'; b := 'Я хороший робот'; writeln('Введите текст ', a, ' и получите текст', b); readln(c); if a = c then begin writeln(b); end; end.
ответ 2: var b: array [1..4] of String[9] = ('ДОНОР', 'ЖЕЗЛ', 'КОЛЕНО', 'КРОКОДИЛ'); a, c:String; i:Integer; begin a := 'ЖЕЛЕЗНОДОРОЖНИК'; writeln('Введите текст ', a, ' и получите слова'); for i:= 1 to 4 do begin writeln(b[i]); end; readln(c); if a = c then begin for i:= 1 to 4 do begin writeln(b[i]); end; end; end.
var s,a,b,c:real;
begin
a:=8; b:=3; c:=-2;
s:= 1/2[max(a,b,c)+min(a,b,c)];
end.
2)
var s,a,b,c:real;
begin
a:=1; b:=4; c:=16;
s:= 1/2[max(a,b,c)+min(a,b,c)];
end.