Uses crt;
var n,a,k,s:integer;
begin
readln(n);
a:=n;
repeat;
a:=n mod 10;
s:=s+a;
n:=n div 10;
if a>6 then inc(k);
until a=0;
writeln(s);
writeln(k);
end.
Insert включает и отключает режим замены. В обычном режиме (вставки) вводимые символы вставляются в место положения курсора, в режиме замены вводимые символы заменяют стоящие справа от курсора. Совместно с Ctrl или Shift кнопка Insert позволяет скопировать или вставить текст.
Для считывания файла с диска нужно указать имя файла. Дата создания для считывания не нужна, размер файла (если это нужно) будет определён по имени.
Привет. у тебя в условии if стоит равно = в си это присвоение, то есть изначально строчкой cin>>h; ты просишь пользователя ввести h. после чего ты пере присваиваешь переменную введеную в if(h=1).
а тебе надо проверить.
if(h==1)
program ms301;
var a,b,c:integer;
begin
writeln('Введите три числа');readln(a,b,c);
A:=sqrt(a);
B:=sqrt(b);
c:=sqrt(c);
writeln(a,', ',b,', ',c);
readln;
end;
Блок-схема - в прилагаемом файле.