Var n,s:integer; begin readln(n); s:=0; n:=abs(n); while n>0 do begin s:=s+n mod 10; n:=n div 10; end; writeln('s = ',s); if s mod 10=5 then writeln('Сумма цифр оканчивается на 5') else writeln('Сумма цифр не оканчивается на 5'); end.
// PascalABC.NET 3.3, сборка 1634 от 14.02.2018 // Внимание! Если программа не работает, обновите версию!
begin var (s,x):=(ReadlnString('Введите число, можно нецелое:'),0.0); if TryStrToFloat(s,x) then if s.Where(c-> c in ['0'..'9']).Select(c->c.ToDigit).Sum mod 10=5 then Writeln('Сумма цифр заканчивается на 5') else Writeln('Сумма цифр не заканчивается на 5') else Writeln('Неверное представление числа') end.
Примеры Введите число, можно нецелое: -3532175 Сумма цифр не заканчивается на 5
Введите число, можно нецелое: 0.02432413 Сумма цифр не заканчивается на 5
Введите число, можно нецелое: -13.05360214 Сумма цифр заканчивается на 5
Введите число, можно нецелое: 1.23007e-31 Сумма цифр не заканчивается на 5
Const n=20; var a:array[1..n]of integer; i,b,k,c,f,g,h:integer; begin for i:=1 to n do a[i]:=Random(70)-20; for i:=1 to n do write(a[i],' '); writeln; for i:=1 to n do begin if (a[i] mod 5 = 0) and (a[i] mod 10<>0) or (a[i]=50) then begin b:=i; for b:=i to (n-1) do a[i]:=a[i+1]; end; end; for i:=1 to n do write(a[i],' '); write('введите к '); read(k); for i:=1 to n do begin if a[i] mod i = 0 then begin c:=i; for i:=n downto c+1 do begin a[i]:=a[i-1]; a[c+1]:=k; end;end;end; for i:=1 to n do write(a[i],' '); writeln; f:=0; g:=0; for i:=n downto 1 do begin if (a[i]>0) then f:=i; end; if a[f]=0 then write('нет положительных '); for i:=n downto 1 do begin if (a[i]<0) then g:=i; end; if (a[g]=0) then write('нет отрицательных '); if (a[f]<>0) and (a[g]<>0) then begin h:=a[f]; a[f]:=a[g]; a[g]:=h; end; for i:=1 to n do write(a[i],' '); writeln; end.
Такое задание уже было. Я на него отвечал, думаю модераторы не против, если свой же ответ здесь предоставлю) Только первых три
Задача 1: var p: array[1..10] of integer; i:integer; count:integer; begin for i:=1 to 10 do read(p[i]); write('Сколько цифр массива хотите видеть? -> '); readln(count); for i:=1 to count do write(p[i]:3); end.
Задача 2:
var arr: array[1..10] of integer; i:integer; s:integer; count:integer; begin for i:=1 to 10 do begin arr[i]:=Random(-10,10); if(arr[i]<0) then begin writeln(arr[i]:4); s:=s+arr[i]; count:=count+1; end; end; writeln('Среднее значение = ', s/count); end.
Задача 3:
var arr: array[1..10] of integer; i:integer; crat:integer; id:integer; begin for i:=1 to 10 do begin read(arr[i]); crat:=arr[i] mod 3; if(crat = 0) then begin id:=arr[i]; if(arr[i] = id) then writeln('Id = ', i:2); end; end; end.
begin
readln(n);
s:=0;
n:=abs(n);
while n>0 do
begin
s:=s+n mod 10;
n:=n div 10;
end;
writeln('s = ',s);
if s mod 10=5 then writeln('Сумма цифр оканчивается на 5')
else writeln('Сумма цифр не оканчивается на 5');
end.
Пример:
1752
s = 15
Сумма цифр оканчивается на 5