Var i : Integer;
Begin
For i:=100 to 999 do
If i=(sqr(i) mod 1000) then Writeln(i,' * ',i,' = ',sqr(i));
end.
Результат:
376 * 376 = 141376
625 * 625 = 390625
Код PascalABC.NET 3.2:
Var S:string;
i,k:integer;
Begin
Write('Введите строку: ');ReadLn(S);
LowerCase(S);
k:=0;
For i:= 1 to S.Length-2 do
if S[i] = 'д' then
if S[i+1] = 'о' then
if S[i+2] = 'м' then
k:=k+1;
WriteLn(k)
End.
Var
S:string;
i,d1,d2,d3:integer;
Begin
WriteLn('Введите строку:');
ReadLn(S);
i:=0;
Repeat
i+=1
Until S[i] = ' ';
d1:=i-1;
Repeat
i+=1
Until S[i] = ' ';
d2:=i-d1-2;
Repeat
i+=1
Until i = S.Length;
d3:=i-d2-d1-2;
if d3 < d1 then d1:=d3;
if d2 < d1 then d1:=d2;
WriteLn(d1)
End.
Кодирование информации - это процесс шифрования информации. Информацию кодируют для того , чтобы в дальнейшем с нею было удобнее работать , то есть сохранять , передавать и.т.д Информацию шифруют знаками , знаки-это элементы , с помощью которых можно кодировать информацию)
164(8)/8=20 (остаток 4)
20/8=2 <span>(остаток 4</span><span>)
Ответ 244(8)</span>
Пойдем вечером в цирк, Вера
