var k: array [1..20] of integer;
i: integer;
k4,k5: integer;
begin
k4:=0;
k5:=0;
for i:=1 to 20 do begin
write('k[',i,'] = ');
readln(k[i]);
if (k[i] mod 4 = 0) and (k[i] <> 0) then inc(k4)
else if (k[i] mod 5 = 0) and (k[i] <> 0) then inc(k5);
end;
if k4>k5 then writeln('Элементов, кратных 4 больше, чем кратных 5')
else if k5>k4 then writeln('Элементов, кратных 5 больше, чем кратных 4')
else if k4=k5 then writeln('Элементов, кратных 4 одинаковое количество, как и кратных 5');
end.
#include <iostream>
#include <cstring>
#include <fstream>
using namespace std;
bool check_polindrom(string word)
{
int len = word.length();
for(int i = 0; i < len/2; ++i)
{
if(word[i] != word[len-i-1])
{
return false;
}
}
return true;
}
int main()
{
ifstream ifs ("input.txt");
string str;
ifs >> str;
ifs.close();
ofstream ofs ("output.txt");
cout<<str;
if(check_polindrom(str))
ofs<<"1";
else
ofs<<"0";
ofs.close();
return 0;
}
Работа с файлами также выполнена (файлы input.txt и output.txt поместить в папку со скриптом main.cpp) ©CodeBlocks
