Var x, S:integer; begin write('Введите число:'); readln(x); // c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535 S := 0; while x > 0 do begin S := S + x mod 10; x := x div 10; end;
Program task; var a,b,c,d,n,s:longint; begin writeln('vvedite chislo 4-значноe chislo');read(a); b:= a div 1000; c:= a div 100 mod 10; d:= a div 10 mod 10 ; n:= a mod 10; writeln('n=',n); writeln('b=',b); writeln('c=',c); writeln('d=',d); writeln('s=',b+c+d+n); end.
DIM A(6) RANDOMIZE TIMER FOR I = 1 TO 6 A(I) = INT(RND * 20) - 10 IF A(I) > 0 THEN S = S + 1 PRINT A(I); " "; NEXT I PRINT PRINT "S="; S
Новый паскаль АВС var a:array[1..6]of integer; i,s:integer; begin for i:=1 to 6 do begin a[i]:=random(-10,10); if a[i]>0 then s:=s+1; write(a[i],' ') end; writeln; writeln('Количество положительных: ',s) end.
Старый паскаль АВС var a:array[1..6]of integer; i,s:integer; begin for i:=1 to 6 do begin a[i]:=random(20)-10; if a[i]>0 then s:=s+1; write(a[i],' ') end; writeln; writeln('Количество положительных: ',s) end.
Var i,n,k,max:integer; s:string; a:array[1..12]of integer; naz:array[1..12]of string; begin naz[1]:=('январь'); naz[2]:=('февраль'); naz[3]:=('март'); naz[4]:=('апрель'); naz[5]:=('май'); naz[6]:=('июнь'); naz[7]:=('июль'); naz[8]:=('август'); naz[9]:=('сентябрь'); naz[10]:=('октябрь'); naz[11]:=('ноябрь'); naz[12]:=('декабрь'); write('Введите число N: '); readln(n); for i:=1 to n do begin write('Введите дату: '); readln(s); s:=copy(s,4,2); k:=StrToInt(s); a[k]:=a[k]+1; end; for i:=1 to 12 do begin if a[i]>=max then begin max:=a[i]; n:=i; end; end; writeln('Месяц с наибольшим количеством: ',naz[n]); end.
x, S:integer;
begin
write('Введите число:');
readln(x);
// c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535
S := 0;
while x > 0 do
begin
S := S + x mod 10;
x := x div 10;
end;
writeln('Сумма всех цифр:', S);end.
Жми Лучший