Var
<span>s1,s2: string; </span>
<span>begin </span>
<span>Write( 's1: ' ); </span>
<span>ReadLn(s1); </span>
<span>Write( 's2: ' ); </span>
<span>ReadLn(s2); </span>
<span>if s1[ 1 ] = s2[ length(s2) ] then </span>
<span>write( 'Da' ) else write( 'Net' ); </span>
<span>ReadLn; </span>
<span>end. </span>
Делаем наоборот
1.:2
2.+2
44:2=22(1)
22+2=24(2)
24:2=12(1)
12:2=6(1)
6:2=3(1)
3+2=5(2)
5+2=7(2)
Ответ 2211121
С использованием?)
var
x,y,z:integer;
begin
write('x= '); readln(x);
write('y= '); readln(y);
z:=x;
x:=y;
y:=z;
writeln;
writeln('x= ',x); write('y= ',y);
readln;
end.
Ответ:
program numsum;
uses
SysUtils;
var
n, i, sn: Integer;
s: string;
begin
Write ('Введите четырехзначное число: ');
ReadLn (n);
n := Abs (n);
if (n > 9999) or (n < 1000) then begin
WriteLn ('Введенное число не четырехзначное');
ReadLn;
Exit;
end;
s := IntToStr (n);
sn := 0;
for i := 1 to Length (s) do
sn := sn + StrToInt (s [i]);
WriteLn ('Сумма цифр числа = ', sn);
if sn mod 5 = 0 then
WriteLn ('Сумма цифр делится на 5')
else
WriteLn ('Сумма цифр не делится на 5');
ReadLn;
end.
Язык : PascalABC. NET
program number1;
const
L =31;
var
a : array[1..L] of shortint;
k : shortint;
begin
randomize;
for i : byte := 1 to L do
a[i] := random(-10, 10);
k :=0;
for i : byte := 10 to 20 do
k := k + a[i];
writeln(k);
end.