Var X: array [1..20] of integer;
i, sum : integer;
<span>BEGIN
</span>for i:=1 to 25 do
read(X[i]);
sum:=0;
i:=1;
while X[i]<>0 do begin
sum:=sum+X[i];
i:=i+1;
<span>end;
</span>writeln('Первый нулевой элемент ', i);
<span>writeln('Сумма элементов до нулевого ', sum);
</span>END.
Var a,b,c: integer;
begin
readln(a,b,c);
if (a=b)and(b=c) then writeln('Все числа равны')
else
begin
a:=a-5; b:=b-5; c:=c-5;
writeln('a = ',a,' b = ',b,' c = ',c);
end;
end.
Пример:
7 5 6
<span>a = 2 b = 0 c = 1</span>
P = 0
a = []
for i in range(int(input("Введите кол-во чисел: "))):
n = int(input("Введите каждое число отдельно: "))
a.append(n)
if n > 0:
p += 1
print(a)
print("Положительных: ", p)
Var s1, s2, t1, t2 :real;
begin
writeln('Введите s1, t1, t2');
readln(s1);
readln(t1);
readln(t2);
s2 := s1/t1 * t2;
writeln('s2: ',s2)
end.
#include <iostream>
using namespace std;
int main() {
bool flag = false;
while (true) {
char space = ' ', asterisk = '*';
int s = 11, a = 1, i, j;
while (s != 0) {
i = s;
while (i--) cout << space;
j = a;
while (j--) cout << asterisk;
cout << '\n';
--s;
a += 2;
if (flag) break;
}
if (flag) break;
flag = true;
}
cin.get();
<span>}</span>