<u>// PascalABC.NET 3.3, сборка 1600 от 23.12.2017</u> <u>// Внимание! Если программа не работает, обновите версию!</u>
begin var r:integer; var x:real; while true do begin Write('Выберите тип единицы длины:',NewLine, '1-дециметр, 2-километр, 3-метр, 4-миллиметр, 5-сантиметр, 0-выход.' ); Read(r); if r=0 then begin Writeln('Пока!'); Exit end; Write('Введите длину в этой единице: '); Read(x); case r of 1:Writeln(x, ' дм = ',10*x,' см = ',100*x,' мм = ',x/10,' м = ', x/10000,' км'); 2:Writeln(x, ' км = ',1000*x,' м = ',10000*x,' дм = ',100000*x,' см = ', x*1000000,' мм');; 3:Writeln(x, ' м = ',10*x,' дм = ',100*x,' см = ',x*1000,' мм = ', x/1000,' км'); 4:Writeln(x, ' мм = ',x/10,' см = ',x/100,' дм = ',x/1000,' м = ', x/1000000,' км'); 5:Writeln(x, ' cм = ',10*x,' мм = ',x/10,' дм = ',x/100,' м = ', x/100000,' км'); end end end.
1) арифметика 2) орфография 3) биология 4) география 5) история 6) физиология 7) микробиология 8) физика 9) морфология 10) химия 11) экономика 12) биология 13) география 14) биология 15) география политическая 16) физика 17) химия 18) география 19) геометрия 20) биология 21) история 22) морфология 23) география
Program Ok; var a,i,k,n:integer; begin k:=0; write('Введите кол-во чисел: '); readln( n); for i:=1 to n do begin read(a); if (a div 10 <> 0) and (a div 100 = 0) and (a mod 2 = 0) and (a mod 3 = 0) then k:=k+1; end; write(k); end.