В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История

Одно задание с каталогом и рисунок схема путей на фото, по возможности и первое задание


Одно задание с каталогом и рисунок схема путей на фото, по возможности и первое задание

Показать ответ
Ответ:
Vladlenna
Vladlenna
26.03.2023 22:50

#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

0,0(0 оценок)
Ответ:
Nastenok122
Nastenok122
27.02.2021 10:34

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.

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота