Какое минимальное число надо ввести, чтобы было выдано 3, а затем 48. Ответ: x = 224
Пустой лист - "создать"; (скорее всего это и имели ввиду)
Дискета - "сохранить";
Дискета с карандашом - "сохранить как"
Var
s, res: string;
k, i, j: integer;
c: char;
begin
read(s);
s := s + chr(10);
for i := 1 to length(s) do
if s[i] = c then
k := k + 1
else begin
if k <= 2 then
for j := 1 to k do
res := res + c
else
res := res + '^' + inttostr(k) + c;
c := s[i];
k := 1;
end;
writeln(res);
end.
Получи 5(6.48) я верю в тебя (кст где ты учишься)
var
n,k,s,a,b,l,x,y,m,n1:integer;
Begin
readln(n,k,b,x,y,l,a,m,n1);
Write('а. ');
if(n mod 2 = 0) then
begin
a := n;
while a > 0 do
begin
s := s + a mod 10;
a := a div 10;
end;
if(s > k) then writeln('True') else writeln('False');
end
else writeln('False');
a := n;
s := 0;
Write('б. ');
while(a > 10) do
begin
a := a div 10;
inc(s);
end;
if(s mod 2 = 0) and (n < b) then writeln('True') else writeln('False');
write('в. ');
a:= n;
while a>10 do
a:=a div 10;
if(a = x)and(n mod 10 = y) then writeln('True') else writeln('False');
write('г. ');
a:=n;
s := 1;
while a > 0 do begin
s := s * (a mod 10);
a := a div 10;
end;
if(s < a) and (n mod b = 0) then writeln('True') else writeln('False');
write('д. ');
a := n;
s := 0;
while a > 0 do begin
s := s + a mod 10;
a := a div 10;
end;
if(s > m)and(n mod n1 = 0) then writeln('True') else writeln('False');
End.
