2) Т.к у нас идет алгоритм с 1 по 9 значит выполняем его 9 раз
Y=0
1) 0+1=1 и так девять раз
1+1=2
2+1=3
3+1=4
4+1=5
5+1=6
6+1=7
7+1=8
8+1=9
Ответ:9
2) Здесь вместо значений подставлям цифры,получается
C:=7+5*3=22
A:=22:2*5=55
Ответ: 55
Поясню.
Строка "итог" – это ответ проводника о том, кто туземец.
Значит, если проводник сказал, что туземец правдолюб, проводник всегда правдолюб
Program qq;
var col, out, i: integer;
arr: array[1..100] of integer;
begin
write('Количество элементов: ');
readln(col);
write('Введите числа: ');
out := 0;
for i := 1 to col do readln(arr[i]);
writeln;
write('Положительных чисел: ');
for i := 1 to col do begin
if(arr[i] > 0) then out := out + 1;
end;
write(out);
end.
-----
В вашем же решении вы не указали переменную k, т.е. у вас нет k := 0; и после выполнения условия if не нужно писать end;
Var i,max:integer;a:array[1..10]of integer;beginfor i:=1 to 10 do readln(a[i]);max:=a[1];for i:=1 to 10 doif a[i]>max then max:=a[i];writeln(max);end.
1.надпись; 2.эллипс; 3.ластик; 4.по горизонтали:кривая, по вертикали:карандаш;
5.заливка; 6.распылитель; 7. линия; 8.кисть; 9.выделение; 10.масштаб.