Ответ:
Объяснение:
program tablitsa_funktsii;
Var a,b,h,x:real;
Begin
write('Введите отрезок [a,b]: ');readln(a,b);
write('Введите шаг h: ');readln(h);
writeln('-------------');
writeln(' x |',' f(x) ');
writeln('-------------');
x:=a;
While x<=b do
Begin
writeln(x:6:2,'|':1,2*cos(x)-1:6:2);
x:=x+h;
End;
readln;
End.
14
к В 2 дороги
к Е 3 дороги
к Ж 3+3+2=8
DIM x(20) AS INTEGER
RESTORE
FOR i = 1 TO 20
READ x(i)
NEXT
s = 0
FOR i = 1 TO 20
IF x(i) > 0 THEN
s = s + x(i)
END IF
NEXT
PRINT "s="; s
END
DATA -3,9,-8,6,6,5,0,-7,9,18
DATA 4,-7,9,7,5,-9,-6,6,3,8
1) Name: aray[1..10] of integer;
3)scr(1) scr(2) ...
4) Program Name;
uses crt;
var a,b,c:integer;
BEGIN
b:=0;
for a:=1 to 100 do
begin
b:=b+a;
end;
write ('Vash resultat =', b);
readln;
<span>END.
</span>
Ответ:
1.1; 2.4; 3,4; 4,3; 1)союз; 2)22; 3)Семён; 4)Коралл; 6)Классификация Основание для искусственной классификации - любые легко различимые признаки
Объяснение: