Ответ:
program f1f1f;
var a,b,k:integer;
begin
while 1<2 begin
writeln('если вы муж. введите 1, если жен. - 2');
readln(k);
if k=1 then
writeln('введите ваш возраст');
readln(a);
b:=a/2+7;
writeln('подходящи возраст',b);
end;
if k=2 then
b:=a*2-14;
k:=0;
Объяснение:
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Ответ:
program f1f1f;
var a,b,k:integer;
begin
while 1<2 begin
writeln('если вы муж. введите 1, если жен. - 2');
readln(k);
if k=1 then
begin
writeln('введите ваш возраст');
readln(a);
b:=a/2+7;
writeln('подходящи возраст',b);
end;
if k=2 then
begin
writeln('введите ваш возраст');
readln(a);
b:=a*2-14;
writeln('подходящи возраст',b);
end;
k:=0;
end;
end;
Объяснение: