Ответ:
пользователь
Объяснение:
ответ содержится в самом вопросе
Var
mas:array [1..20] of integer;
i,sum,A:integer;
begin
for i:=1 to 20 do
read(mas[i]);
for i:=1 to 20 do
If odd(mas[i]) then
sum:=sum+mas[i];
writeln('Сумма элементов имеющих нечетное значение = ',sum);
writeln('Введите А');
readln(A);
writeln('Индексы элементов, значение которых больше,чем А:');
for i:=1 to 20 do begin
if mas[i]>A then
write(i,' ');
end;
end.
static void Main()
{
double a, b;
a = float.Parse(Console.ReadLine());
b = float.Parse(Console.ReadLine());
Console.WriteLine("A: " + 0.5 * (a + b));
Console.WriteLine("G: " + Math.Sqrt(a * b));
Console.ReadKey(false);
}
найти пару носков
взять один носок, взять второй носок
если носки составляют пару, то ура
если не пара, то опять берем носки
найти пару взаимно простых чисел
взять одно число
взять второе число
Если они взаимно простые , то ура
иначе опять ищем числа
#include <iostream>
using namespace std;
int main()
{
setlocale(LC_ALL, "RUSSIAN");
string str1;
int count=0;
cout << "Программа подсчета количества букв \"к\" строке" << endl;
str1 = "Строка";
for (int i = 0; i < str1.length(); i++)
if (str1[i] == 'к')
count++;
cout << "Буква встречается в строке " << count << " раз" << endl;
system("pause");
}
