Больная подготовительная работа по созданию моделей всех объектов сцены и назначению им материалов, это преимущество или недостаток трёхмерной графики?
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.
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.
это скорее преимущество
Объяснение: