Var
A: integer;
Begin
A:=1; // эта строчка добавлена так как если не задать значение оно будет равно 0
While A<>0 do Readln(A);
End.
Var
A: integer;
Begin
Repeat
Readln(A);
Until A<>0;
End.
Объяснение:
Думаю я смог
Это программы на Паскаль
#include <iostream>
using namespace std;
int main() {
bool Flag = false;
int N, max, min;
cin >> N;
int* array = new int[N];
for (int i = 0; i < N; i++) {
cin >> array[i];
if (array[i] % 2 == 0 && array[i] > 0) {
max = array[i];
min = array[i];
Flag = true;
}
}
if (Flag == false) {
cout << -1 << " " << -1;
}
else {
for (int i = 0; i < N; i++) {
if (array[i] > max && array[i] % 2 == 0 && array[i] > 0)
max = array[i];
else if (array[i] < min && array[i] % 2 == 0 && array[i] > 0)
min = array[i];
}
cout << min << " " << max;
}
delete[] array;
return 0;
}
print("№1")
a = 37*(25+87.5)-17*(4.5+1.9)
print("ответ: ",a)
print("")
print("№2")
a = float(input ("Введите число a: "))
b = float(input ("Введите число b: "))
c = float(input ("Введите число c: "))
d = float(input ("Введите число d: "))
a = ((a*b)/(c+d**4))
print("ответ: ",a)
print("")
print("№3")
a = float(input ("Введите число a: "))
b = float(input ("Введите число b: "))
c = float(input ("Введите число c: "))
a = ((a+2*b-3*c)/(5*a+4))
print("ответ: ",a)
print("")
print("№4")
a = float(input ("Введите число a: "))
b = float(input ("Введите число b: "))
a = ((a+b)/(a-b))+((a*b)/(3.14))
print("ответ: ",a)
#include <iostream>
using ll = long long;
using ld = long double;
using namespace std;
signed main() {
ll ans = 0;
while(true){
ll x;
cin >> x;
if(x == 0)
break;
ans++;
}
cout << ans;
}