Program z20
строка 5 - пропущен ввод третьей стороны, должно быть:
readln(a,b,c)
строка 7 - должно быть:
if (a+b>c) and (b+c>a) and (a+c>B) then
Program z21;
uses crt;
var
a,b: real;
begin
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
write('Введите число а '); readln(a);
write('Введите число b '); readln(b);
if a>b then
writeln('a>b Результат: ',a-5)
else
if a<b then
writeln('a<b Результат: ',b-5)
else
writeln('a=b Результат: ',b-5);
end.
Program z22;
uses crt;
const n = 100;
const m = 500;
var
sum,i: integer;
begin
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
sum:=0;
for i:=n to m do
sum:=sum+i;
writeln('Сумма чисел от ',n,' до ',m,' равна',sum);
end.
Program z23;
uses crt;
var
mas:array[1..3] of real;
k,i:integer;
begin
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
k:=0;
for i:=1 to 3 do
begin
write('Введите ',i,'-е число: '); readln(mas[i]);
if mas[i]=0 then k:=k+1;
end;
writeln('Количество чисел, равных 0: ',k);
end.
Program z24;
uses crt;
var
a,b,i,sum: integer;
begin
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
write('Введите число A '); readln(a);
write('Введите число B '); readln(b);
sum:=0;
for i:=a to b do
if (i>0) and (i mod 4 = 0) then
sum:=sum+i;
writeln('Сумма целых положительных чисел, кратных 4, из интервала от ',a,' до ',b,', равна ',sum);
end.
Көптік жалғау — жалғанған сезіне көптік мағына беретін қосымша. Көптік жалғауының дыбыс үндестігіне қарай алты варианты қолданылады: -лар, -лер, -дар, -дер, -тар, -тер(қала-лар, мекеме-лер, ғалым-дар, езен-дер, ат-тар, шөп- тер). Көптік ұғымды білдіру үшін жалғанатын бұдан басқа екі түрлі морфологиялық форма бар. Оның бірі -ыз (-із, -з) формасы қазіргі тілімізде кене заманнан қалған сарқыншақ ретінде бірен-саран сөздерде кездеседі. Мысалы, "мен" сөзінің көпше түрі "біз" есімдігіндегі -з формасы сөздің бөлінбейтін бөлшегіне айнапған. Екіншісі жүрді-к, айтты-қ, кетті-к, жетті-к дегендегі -к, -қ формасы да ерте кездегі көптік мағынаны білдерген қосымшалар. Көптік жалғау көптік мағынаға қосымша мынандай әр алуан ұғымды білдіреді.
1. Біртекті нәрселердің жиынтығын, белгілі бір адамдар тобын (мектеп-тер, үй-лер, жас-тар);
2. Сын есім мен есімшені субстантивтендіреді (жақсы-ларды, ақылды-ларды, оқыған-дарды);
3. Сан есімге, мезгіл үстеуге жалғанып, болжалдау, шамалау, мелшерлеуді білдіреді (жасы отыз-дарда, са-ғат үш-терде, былтыр-лар);
4. Бір нәрсенің жалпыға бірдей ортақтығын, меншіктеуші адамның көптігін білдіреді (жалғыз қыз-дарың, Сапар әке-лерің, мектеп-терің). Көптік жалғау бірыңғай мүшенің соңғысына ғана жалғанады. Көптік мағына Көптік жалғауның қатысынсыз лексикассыз, морфологиясыз, синтаксистік тәсілдер арқылы берілетін сөздер де бар (түз, ұн, құрт-құмырсқа, мәдениет, феодапизм, ақыл, достық, бала-шаға, кәрі-жас, жолдас-жора, ыдыс-аяқ). Көптік ұғымның сөз тіркесінен аңғарылатын тұстары аз емес. Мысалы, онсыз да көптік ұғымды білдіретіндіктен: барлық, көптеген, қанша, әр, бірнеше, сантүрлі, санмың, біраз сөздерімен, сондай-ақ сан есіммен тіркәсіп келгенде көптік жалғауы қажет болмайды: 5 адам, барлық адам, көп адам.
(1+ctg^2a)=1/sin квадрат x
и получается tg кварат x