1) var a1, a2, a3, s: integer; begin write('Введите первое число: '); readln(a1); write('Введите второе число: '); readln(a2); write('Введите третье число: '); readln(a3); if a1>0 then s:=s+1; if a2>0 then s:=s+1; if a3>0 then s:=s+1; writeln(s); end.
2) var n, s, i: integer; begin write('Введите число n: '); readln(n); for i:=1 to n do s:=s+i; writeln(s); end.
3) var n, s, i, k: integer; begin write('Введите число n: ');readln(n); for i:=1 to n do begin writeln('Введите рост ',i,' учащегося: '); readln(k); s:=s+k; end; writeln(s/i); end.
4)var l, m: integer; begin write('Введите расстояние в сантиметрах: '); readln(l); m := l div 100; write('Количество метров в ', l, ' сантиметрах = ', m); end.
Program task1; var a, i, kol :integer; begin for i:= 1 to 3 do begin readln(a); if a > 0 then inc(kol); end; writeln(kol); end.
program task2; var n, result :integer; function summa (x :integer) :integer; var i, sum :integer; begin for i:= 1 to x do sum:= sum + i; summa:= sum; end; begin readln(n); result:= summa(n); writeln(result); end.
program task3; var i, n, growth, sum, kol :integer; SrGrowth :real; begin readln(n); sum:= 0; kol:= 0; for i:= 1 to n do begin readln(growth); sum:= sum + growth; inc(kol); end; SrGrowth:= sum/kol; writeln(SrGrowth); end.
program task4; var l :integer; begin readln(l); l:= l div 100; writeln(l); end.
100010 2 = 1∙25+0∙24+0∙23+0∙22+1∙21+0∙20 = 32+0+0+0+2+0 = 341 10
111010 2 = 1∙25+1∙24+1∙23+0∙22+1∙21+0∙20 = 32+16+8+0+2+0 = 58 10
100101 2 = 1∙25+0∙24+0∙23+1∙22+0∙21+1∙20 = 32+0+0+4+0+1 = 37 10