Var n,k : Integer;
Begin
k:=-1;
Readln(N);
While N>0 do
Begin
If (not Odd(N mod 10)) and ((N mod 10)>k) then k:=N mod 10;
N:=N div 10;
end;
If k=-1 then Writeln('не найдено') else Writeln(k);
end.
Var
a,b,c,k:byte;
Begin
k:=0;
For a:= 1 to 9 do
For b:= 0 to 9 do
For c:= 0 to 9 do
if ((a<b)and(b<c))or((a>b)and(b>c)) then
Begin
k:=k+1;
Write(a,b,c,' ')
End;
WriteLn;
WriteLn('k = ',k);
End.
123 124 125 126 127 128 129 134 135 136 137 138 139 145 146 147 148 149 156 157 158 159 167 168 169 178 179 189 210 234 235 236 237 238 239 245 246 247 248 249 256 257 258 259 267 268 269 278 279 289 310 320 321 345 346 347 348 349 356 357 358 359 367 368 369 378 379 389 410 420 421 430 431 432 456 457 458 459 467 468 469 478 479 489 510 520 521 530 531 532 540 541 542 543 567 568 569 578 579 589 610 620 621 630 631 632 640 641 642 643 650 651 652 653 654 678 679 689 710 720 721 730 731 732 740 741 742 743 750 751 752 753 754 760 761 762 763 764 765 789 810 820 821 830 831 832 840 841 842 843 850 851 852 853 854 860 861 862 863 864 865 870 871 872 873 874 875 876 910 920 921 930 931 932 940 941 942 943 950 951 952 953 954 960 961 962 963 964 965 970 971 972 973 974 975 976 980 981 982 983 984 985 986 987
k = 204
Чтобы моделировать разные ситуации. Например модель на подиуме моделирует как будет выглядеть платье теоретически на обычном человеке но в выгодном свете. Маникен для краш тестов автомобилей помогает моделировать аварии и снимать с него повреждения и делать выводы
Точно не могу сказать правильно или нет, но вроде решается так)
Итак, для начала определим кол-во символов в книге 218*36*42=329616
Далее 1 символ - 1 байт, значит в книге содержится 329616 байт информации
329616:1024= если округлить 322 кб = 0,31 мб = 0,0003 гб
Возможно допустила ошибку в вычислениях, если что проверь) а так вроде правильно
Замените число 10 в задании массива и циклах на нужное число действительных чисел (выделено жирным)
var
i, a, b, c: integer;
m: array[1..10] of real;
begin
for i := 1 to 10 do readln(m[i]);
for i := 1 to 10 do
begin
if m[i] > 0 then a := a + 1;
if m[i] = 0 then b := b + 1;
if m[i] < 0 then c := c + 1;
end;
writeln(с, ' ', a, ' ', b);
end.