Тактильная вроде... Этр когда касаешься чего-либо
Var sum, n: longint;
begin
for var i:=1 to readinteger ('Введите кол-во чисел: ') do
begin
n:=readinteger ('Введите число: ');
if abs(n) in [10..99] then inc (sum, n);
end;
write ('Сумма двузначных: ', sum);
end.
Рота Нота Нора Пора Пола Полк
Бант Кант Карт Корт Кора Коса
Бег Бог Бок Бак Бас Бал Бар Шар Шаг Море Горе Гора Пора Кора Кара Каша Саша Суша
Миг Мир Пир Пар Бар Бас Бес Вес Век
а я разве их не решал????????
но ладнооо
1)
Program Pr1;
uses crt;
var stroka:string;
i,k,x:integer;
mas:array[byte] of integer;
Begin
clrscr;
readln(stroka);
i:=1;
repeat
val(stroka[i],k,x);
mas[i]:=k;
i:=i+1;
until i=length(stroka);
x:=0;
for i:=1 to length(stroka) do x:=x+mas[i];
if x=10 then writeln('TRUE')
else writeln('ELSE');
end.
2 я не знаю как решать
3)
Program Pr1;
uses crt;
var stroka:string;
i,k,x:integer;
mas:array[byte] of integer;
begin
clrscr;
readln(stroka);
i:=1;
while i<=length(stroka) do begin
val(stroka[i],k,x);
mas[i]:=k;
i:=i+1;
end;
x:=0;
for i:=1 to length(stroka) do x:=x+mas[i];
writeln(x);
end.
4)
Program Pr1;
uses crt;
var stroka:string;
i,k,x:integer;
mas:array[byte] of integer;
begin
clrscr;
readln(stroka);
i:=1;
while i<=length(stroka) do begin
val(stroka[i],k,x);
mas[i]:=k;
i:=i+1;
end;
x:=0;
for i:=1 to length(stroka)-1 do
for k:=1 to length(stroka)-i do if mas[k]=mas[k+1] then x:=x+1;
if x>0 then writeln('TRUE')
else writeln('FALSE');
end.