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

На рисунке изображена схема дорог н ского района в таблице

Показать ответ
Ответ:
svinka03
svinka03
22.04.2023 14:49

#include<fstream>

#include <iostream>

#include <algorithm>

#include <string>

#include <map>

int main()  

{

std::string fname;

//ввод названия текстового файла

std::cin >> fname;

std::ifstream file(fname);

std::string text((std::istreambuf_iterator<char>(file)) ,std::istreambuf_iterator<char>());

file.close();

std::map<char, char> rs = {{'9', '0'}};

for (char i = '0'; i < '9'; ++i) rs.insert({ i,i+1 });

char r;

std::replace_if(text.begin(), text.end(), [&](char c) { return r = rs[c]; }, r);

std::ofstream out("result.txt");

out << text << std::endl;

out.close();

return 0;

}

0,0(0 оценок)
Ответ:
artemumnov2
artemumnov2
08.07.2021 07:53

var a,b,c,x,z: double;

begin

a:=4; b:=-1; c:=0;

while (a=4) do

 begin

 write('Введите a: ');

 readln(a);

 if (a=4) then writeln('a не может быть равно 4!');

 end;

while (b<=0) do

 begin

 write('Введите b: ');

 readln(b);

 if (b<=0) then writeln('b не может быть меньше или равно 0!');

 end;

while (c=0) do

 begin

 write('Введите c: ');

 readln(c);

 if (c=0) then writeln('c не может быть равно 0!');

 end;

x:=(7*a*b+(1/(c*c)))/(4-a);

z:=a+(x/sqrt(2*b));

writeln('x = ');

writeln(x);

writeln('z = ');

writeln(z);

end.

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