Program zadacha;
uses crt;
var a:array[1..10]of integer;
i,k,sum:integer;
begin
i:=0; k:=0;
repeat
inc(i);
readln (a[i]) ;
inc(k) ;
until a[i]=0;
sum:=0;
for i:=1 to k do
sum:=sum +a[i];
writeln('sr_znach ',sum/k);
end.
отметь как лучший ответ
проверь, не застрял ли кардридж печати.
попробуй поменять режим печати на черно-белый или на цветной
самый очевидный, перезапустить принтер (хотя наверно попробывал думаю)
возможно дело в драйвере к принтеру, попробуй установить другой версии.
обычно кстати к принтерам делают софт с которого проще машиной, поищи мб есть.
если ранее небыло такой проблеммы при постоянном использовании, то перезапуск обычно решает проблемму.
еще как вариант( если печатаешь с пк а не на прямую), подключи принтер через другой порт usb
вроде все варианты перебрал, разве что кроме очевидной поломки внутренних частей принтера.а так все
#include
#include
int main(){
int odds_sum=0,odds_cnt=0,
tdgt_sum=0,mthr_cnt=0;
for(int i=0,n; i< 10; i++){
scanf("%d",& n);
if(n%2==1){
odds_cnt++;
odds_sum+=n;
}
if(9
if(n%3==0)mthr_cnt++;
}
printf("%d\n",odds_sum); //сумма нечётных
printf("%d\n",odds_cnt); //количество нечётных
printf("%d\n",tdgt_sum); //сумма двузначных
printf("%d\n",mthr_cnt); //количество кратных трём
return 0;
}
2.#include
#include
int main(){
int even_sum=0,tdgt_sum=0,
tdgt_cnt=0,ngtv_cnt=0;
for(int i=0,n; i< 20; i++){
scanf("%d",& n);
if(n%2==0)even_sum+=n;
if(9
tdgt_cnt++;
tdgt_sum+=n;
}
if(n< 0)ngtv_cnt++;
}
printf("%d\n",even_sum); //сумма чётных
printf("%d\n",tdgt_sum); //сумма двузначных
printf("%d\n",tdgt_cnt); //количество двузначных
printf("%d\n",ngtv_cnt); //количество отрицательных
return 0;
}
3.#include
#include
int main(){
int ngtv_sum=0,ngtv_cnt=0,
tdgt_sum=0,tdgt_cnt=0;
for(int i=0,n; i< 15; i++){
scanf("%d",& n);
if(n< 0){
ngtv_sum+=n;
ngtv_cnt++;
}
if(99
tdgt_sum+=n;
tdgt_cnt++;
}
}
printf("%d\n",ngtv_sum); //сумма отрицательных
printf("%d\n",ngtv_cnt); //количество отрицательных
printf("%d\n",tdgt_sum); //сумма двузначных
printf("%d\n",tdgt_cnt); //количество двузначных
return 0;
}
Проверено на Паскаль АВС
Program Dafnochka;
uses crt;
var
r,sum: real;
k:integer;
begin
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
sum:=0;
k:=0;
r:=1;
writeln('Введите ненулевое число');
writeln('(или введите 0 для конца последовательности) ');
while r<>0 do
begin
write("Ввод:") ;
readln (r);
sum:=sum+r;
k:=k+1;
end;
writeln();
writeln('Всего введено ',k-1,' чисел');
writeln('Среднее значение равно ',sum/(k-1));
end.