Pascal
var
s : string;
T : text;
i : integer;
begin
assign (T,'File.txt'); //Ассоциация переменной T с файлом File.txt
rewrite (T); //Перезапись файла T и открытие его для записи
for i := 1 to 6 do
begin
readln (s);
writeln (T,s);
end;
close(T); //Закрытие файла T
end.
Program N1;
var a,c1,c2,c3: integer;
begin
writeln('Введите число');
read(a);
c1:=a mod 10;
c2:=(a div 10) mod 10;
c3:=(a div 100) mod 10;
writeln('Кол-во сотен = ',c3);
writeln('Кол-во десятков = ',c2);
writeln('Кол-во единиц = ',c1);
end.
1. d
2.d
P.s Пишу эти буквы для того чтобы пропустили ответ надо же 20 символов)