<span>Определите,какие из перечисленных моделей материальные,а какие информационные. Укажите номера материальных моделей.
1) Макет декорационного оформления театральной постановки.
3) Географический атлас.
4) Объёмная модель молекулы воды.
6) Макет скелета человека.
9) Игрушечный паровоз.</span>
<span>S(y+x, y, z);
- ошибка
y+x имеет тип real+byte = real и не может быть подставлен туда, где ожидался byte. Это связано с запретом в Паскале неявного приведения вещественного типа к целочисленному.
</span>
При помощи length()
Например так:
ar
s: string;
len: byte;
begin
write('Input string: ');
readln(s);
len := length(s);
writeln('Its lenght is ', len,' characters.');
readln
end.
Здесь s - сама строка, а длина будет выведена в переменной len
Var a,s,p,i:integer;
begin
s:=0; p:=1;
writeln('Введите 5 чисел:');
for i:=1 to 5 do
begin
readln(a);
s:=s+a*a;
p:=p*a*a;
end;
writeln('s = ',s,' p = ',p);
end.
Пример:
<span>Введите 5 чисел:
2
4
3
1
5
s = 55 p = 14400</span>