Кто впервые использовал слово «робот» в 1920 году? < американский писатель Джорж Девол чешский изобретатель Карел Чапек чешский писатель Карел Чапек американский изобретатель Джорж Девол
Program p452; var a,b,m,d:integer; begin Write('Введите размеры форточки (а,b) в см: '); Read(a,b); Write('Введите диаметр головы Васи в см: '); Read(d); if a<b then m:=a+2 else m:=b+2; { +2 - это зазор по 1 см с обоих сторон } if d<=m then Writeln('Голова проходит') else Writeln('Голова не проходит') end.
Тестовое решение: Введите размеры форточки (а,b) в см: 25 40 введите диаметр головы Васи в см: 23 Голова проходит
program p453; var a,b,c,x,y,m1,m2,n1,n2:integer; begin Write('Введите размеры кирпича в см (a,b,c): '); Read(a,b,c); Write('Введите размеры отверстия в см (x,y): '); Read(x,y); if a<b then if a<c then begin m1:=a; if b<c then m2:=b else m2:=c end else begin m1:=c; m2:=a end else if b<c then begin m1:=b; if a<c then m2:=a else m2:=c end else begin m1:=c; m2:=b end; if x<y then begin n1:=x; n2:=y end else begin n1:=y; n2:=x end; if (m1<=n1) and (m2<=n2) then Writeln('Кирпич пройдет в отверстие') else Writeln('Кирпич не пройдет в отверстие') end.
Тестовое решение: Введите размеры кирпича в см (a,b,c): 10 4 12 Введите размеры отверстия в см (x,y): 5 9 Кирпич не пройдет в отверстие
program p454; var a,b:integer; begin Write('Введите значения а и b: '); Read(a,b); Writeln('Размеры чемодана ',3*a,'x',2*a,'x',a); Writeln('Размеры коробки ',3*b,'x',2*b,'x',b); if b<a then Writeln('Коробка поместится в чемодан') else Writeln('Коробка не поместится в чемодан') end.
Тестовое решение: Введите значения а и b: 18 16 Размеры чемодана 54x36x18 Размеры коробки 48x32x16 Коробка поместится в чемодан
105 120 125 130 135 140 145 150 160 165 170 175 180 185 190 195 205 210 215 230 235 240 245 250 260 265 270 275 280 285 290 295 305 310 315 320 325 340 345 350 360 365 370 375 380 385 390 395 405 410 415 420 425 430 435 450 460 465 470 475 480 485 490 495 510 520 530 540 560 570 580 590 605 610 615 620 625 630 635 640 450 650 670 675 680 685 690 695 705 710 715 720 725 730 735 740 745 750 760 765 780 785 790 795 805 810 815 820 825 830 835 840 845 850 860 865 870 875 890 895 905 910 915 920 925 930 935 940 945 950 960 965 970 975 980 985 990 995 вот все!
var
a,b,m,d:integer;
begin
Write('Введите размеры форточки (а,b) в см: ');
Read(a,b);
Write('Введите диаметр головы Васи в см: ');
Read(d);
if a<b then m:=a+2 else m:=b+2;
{ +2 - это зазор по 1 см с обоих сторон }
if d<=m then Writeln('Голова проходит')
else Writeln('Голова не проходит')
end.
Тестовое решение:
Введите размеры форточки (а,b) в см: 25 40
введите диаметр головы Васи в см: 23
Голова проходит
program p453;
var
a,b,c,x,y,m1,m2,n1,n2:integer;
begin
Write('Введите размеры кирпича в см (a,b,c): ');
Read(a,b,c);
Write('Введите размеры отверстия в см (x,y): ');
Read(x,y);
if a<b then
if a<c then begin
m1:=a;
if b<c then m2:=b else m2:=c
end
else begin m1:=c; m2:=a end
else
if b<c then begin
m1:=b;
if a<c then m2:=a else m2:=c
end
else begin m1:=c; m2:=b end;
if x<y then begin n1:=x; n2:=y end
else begin n1:=y; n2:=x end;
if (m1<=n1) and (m2<=n2) then Writeln('Кирпич пройдет в отверстие')
else Writeln('Кирпич не пройдет в отверстие')
end.
Тестовое решение:
Введите размеры кирпича в см (a,b,c): 10 4 12
Введите размеры отверстия в см (x,y): 5 9
Кирпич не пройдет в отверстие
program p454;
var
a,b:integer;
begin
Write('Введите значения а и b: '); Read(a,b);
Writeln('Размеры чемодана ',3*a,'x',2*a,'x',a);
Writeln('Размеры коробки ',3*b,'x',2*b,'x',b);
if b<a then Writeln('Коробка поместится в чемодан')
else Writeln('Коробка не поместится в чемодан')
end.
Тестовое решение:
Введите значения а и b: 18 16
Размеры чемодана 54x36x18
Размеры коробки 48x32x16
Коробка поместится в чемодан