#include <fstream>
using namespace std;
int main(int argc, char* argv[]){
setlocale(LC_ALL, "rus");<span>
ofstream
fout("cppstudio.txt"); </span><span>
fout << "АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ" << endl;</span>
int i;
for (i=192;i<=223;i++){<span>
fout << i << " ";</span>
}
fout.close();
return 0;
<span>}</span>
Жмёшь в левом верхнем углу файл (сохранить
Если заюзать относительные пути, то должно быть - <span>%USERPROFILE%\Desktop
</span>
Pascal
const n = 20;
var
a,b,min : real;
m : array [1..n] of real;
i : integer;
begin
// формирова массива не пишу
readln (a,b);
min := b;
for i := 1 to n do
if (m[i]<min) and (m[i] >=a ) and (m[i] <=b)
then
min := m[i];
writeln (min:3:2);
<span>end.
Программа будет работать корректно, если в массиве есть хотя бы один элемент, попадающий в диапозон [a..b].</span>
Program task;
var x,i,sum:integer;
begin
readln(x);
sum := 0;
for i := 1 to 4 do
begin
sum := x mod 10 + sum;
x := x div 10;
end;
writeln(sum);
readln;
<span>end. </span>