Когда мы переписываемся, мы когда мы переписываемся, мы часто используем цифры в нашем тексте. вам дано одно предложение на языке. нужно найти все цифры, которые встречаются в этом предложений хотя бы один раз
Много лишнего(наверно), только с олимпиады!Как есть. uses crt; var b,n,i,k,c,o,x1:integer; f,s,ch:string; r,g: text; A:array [0..9] of integer; begin assign (r,'C:\Bin.txt'); reset (r); readln (r,f); close (r); for i:=1 to length(f) do begin s:=copy(f,1,1); if (s<>'0') or (s<>'1') or (s<>'2') or (s<>'3') or (s<>'4') or (s<>'5') or (s<>'6') or (s<>'7') or (s<>'8') or (s<>'9')then delete(f,1,1); if (s='0') or (s='1') or (s='2') or (s='3') or (s='4') or (s='5') or (s='6') or (s='7') or (s='8') or (s='9')then begin x1:=pos(s,ch); if x1<>0 then begin delete(ch,x1,1); ch:=ch+s; end else ch:=ch+s; end; end; val(ch,n,o); N := Abs(N); for i := 0 to 9 do A[ i ] := 0; while N > 0 do begin Inc(A[ N mod 10]); N := N div 10; end; assign (g,'C:\Bout.txt'); rewrite (g); for i := 0 to 9 do while A[ i ] > 0 do begin Write(g,i); Dec(A[ i ]); end; close(g); end.
//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016) var a,n,i,s:integer; begin write('Число элементов последовательности '); readln(n); for i:=1 to n do begin write(i,' элемент последовательности = ');readln(a); if (a mod 2 <>0) then s:=s+a; end; writeln('Сумма нечетных = ',s); end.
Тестовое решение: Число элементов последовательности 5 1 элемент последовательности = 3 2 элемент последовательности = 2 3 элемент последовательности = 4 4 элемент последовательности = 1 5 элемент последовательности = 5 Сумма нечетных = 9
1. Если имеется в виду язык Pascal, то получим следующее: var: a; //PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016) begin readln(a); b:=a+a; writeln (b); end.
Program50.pas(5) : Неизвестное имя 'b'
2. Попробуем такой вариант на Python
a =int(input()) b = a+a print(b)
При вводе а получим на выходе 10
Получается, что в Pacal требуется объявлять переменные в секции переменных, или в любом месте программы можно объявить переменную с служебного слова var для PascalABC.net. Первый код можно переписать так, и он будет работать:
var: a; //PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016) begin readln(a); var b:=a+a; writeln (b); end.
uses crt;
var b,n,i,k,c,o,x1:integer;
f,s,ch:string;
r,g: text;
A:array [0..9] of integer;
begin
assign (r,'C:\Bin.txt');
reset (r);
readln (r,f);
close (r);
for i:=1 to length(f) do
begin
s:=copy(f,1,1);
if (s<>'0') or (s<>'1') or (s<>'2') or (s<>'3') or (s<>'4') or (s<>'5') or (s<>'6') or (s<>'7') or (s<>'8') or (s<>'9')then
delete(f,1,1);
if (s='0') or (s='1') or (s='2') or (s='3') or (s='4') or (s='5') or (s='6') or (s='7') or (s='8') or (s='9')then
begin
x1:=pos(s,ch);
if x1<>0 then
begin
delete(ch,x1,1);
ch:=ch+s;
end
else
ch:=ch+s;
end;
end;
val(ch,n,o);
N := Abs(N);
for i := 0 to 9 do
A[ i ] := 0;
while N > 0 do
begin Inc(A[ N mod 10]);
N := N div 10;
end;
assign (g,'C:\Bout.txt');
rewrite (g);
for i := 0 to 9 do
while A[ i ] > 0 do
begin Write(g,i);
Dec(A[ i ]);
end;
close(g);
end.