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.
дискеты CD флеш карта
магнитный жесткий твердотельный жесткий
диск DVD диск
Blu-Ray