Задание № 18 описание диапазона str, состоящего из 10 символьных строк
A char str[11]
B char str[10]
C char str[]
D сһаг str
E char str[9]

#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;

}

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.