#include <iostream>
#include <cstdlib>
using namespace std;
int main()
{
setlocale(LC_ALL,"russian");
int num;
cout << "Введите размер массива: ";
cin >> num;
int a[num];
int sum = 0;
cout << "Вводите элементы массива поочерёдно: " << endl;
for(int i = 0; i<num; i++)
{
cin >> a[i];
if(a[i]%5==0 && a[i]%2==0) // находим в массиве числа, кратные 5 и 2
{
sum = sum + 1;
}
}
cout << "Чётных чисел, кратных пяти и двум: " << sum << endl;
system("pause");
return 0;
}
Объяснение:
1)var
s1, s2: string;
i: byte;
begin
write('s1 = ');
readln(s1);//вводим слово S1
S2 := ''; //начальное значание слова s2 (пустая строка)
for i := 1 to Length(s1) do
if odd(i + 1) then S2 := S2 + S1[i];//если i - четно, то увеличиваем s2
writeln('S2 = ', S2)
end.
2)var
s, s1: string;
i: integer;
begin
i := 1;
s1 := '';
write('Введите предложение: ');
readln(s);
while i <= length(s) do
begin
if (s[i] = ',') and (i mod 2 <> 0) then
else s1 += s[i];
inc(i)
end;
writeln('Полученное предложение: ', s1);
writeln('Кол-во удаленных ",": ', length(s) - length(s1));
end.
б) Универсальная машина для работы с информацией
Объяснение: