1)
Код:
var s:string;
begin
writeln('Enter your gender (m or f)');
readln(s);
if (s='m') or (s='M') then writeln('reservist');
if (s='f') or (s='F') then writeln('not liable for military service');
readln
end.
2)
Код:
var a,b,x:real;
begin
readln(a,b);
if b=0 then begin writeln('b=',b,' не удовлетворяет ОДЗ'); halt; end;
if a=b then x:=-125 else if a<b then x:=(a-5)/b else x:=5*a+b;
writeln('x=',x:4:4);
readln
end.
Третью попробуйте сделать самостоятельно. Примерный алгоритм: запросите количество купленных компьютеров каждой модели, вычислите сумму покупки, отдельно суммируйте количество всех купленных компьютеров, если сумма будет больше 10 - вычислите скидку. Вычисленную скидку отнимите от суммы покупки и выведите результат.