program dlb;
var
i,T,s,k : integer;
begin
i := 1;
writeln('Введите число T');
readln(T);
k := 0;
while i <>0 do
begin
readln(i);
if i > T then
s := s +i;
if i < 0 then
k := k + 1;
end;
write(s,',', k);
end.
program pd;
var
n,min,s,i,x: integer;
begin
min:= 10000000;
writeln('Введите число N');
readln(n);
for i := 1 to N do
begin
readln(x);
if x < min then
min := x;
if x > 0 then
s := s + x
end;
if s > 0 then
writeln(min,',', s)
else
begin
write('Положительных чисел нет в последовательности');
write(min);
end;
end.
#include <iostream>
int main()
{
char str[80]; // Объявление символьной строки
int i = 0, cnt = 0; // Объявление переменных i и cnt целого типа - счетчик для цикла
// и переменная, в которой будем считать кол-во замен
std::cin >> str; // Считывание строки из консоли в символьную строку str
while (str[i] != '\0') // Пока очередной символ не станет равен символу конца строки
{
if (str[i] == 'a')
{
str[i] = 'b'; // Заменяем символ 'a' на символ 'b'
cnt++; // Увеличиваем счетчик замен на единицу
}
i++; //переходим к следующему символу
}
std::cout << str << std::endl; // Выводим измененную символьную строку на экран
std::cout << cnt; // Выводим количество замен
return 0;
}
S=0
i=2
while i<=20:
S+=i
i+=2
print(S)
Объяснение: