Var a, b, c, i: integer; d: string; begin readln(a, b); d := inttostr(a); for i := 1 to length(d) do c := c + strtoint(d[i]); if (b = c) then writeln('Yes') else writeln('No'); end.
Чем является информация для человека?Каким должно быть сообщение, чтобы оно пополнило ваши знания?Информативны ли для вас следующие сообщения: "Сколько в слове гласных звуков, столько в слове и слогов" и "Термин "мультимедиа" означает объединение текста, звука, графики и видео в одном документе"? ответ обоснуйте.Какими средствами приёма сигналов из внешнего мира обладает человек?Какие ощущения вы испытывали, купаясь летом в реке?Из чего складывается восприятия? Приведите пример.Каково ваше представление о носителях информации? Опишите их.Что такое понятие? Приведите примеры понятий из повседневной жизни, а также из курсов математики, русского языка, истории, географии и информатики.Приведите 2-3 примера суждений, в которых речь идет об объектах, изучаемых на уроках информатики.Сделайте умозаключения.
// PascalABC.Net 3.0, сборка 1076 var s,ss:string; i,n,p:integer; begin Write('Введите строку: '); Readln(s); n:=Length(s); p:=Pos(',',s); if p in [1..n-1] then begin ss:=Copy(s,p+1,n-p); n:=Length(ss); p:=Pos(',',ss); if p=0 then Writeln(ss) else Writeln(Copy(ss,1,p-1)) end else Writeln('*** Нечего выводить ***') end.
d: string;
begin
readln(a, b);
d := inttostr(a);
for i := 1 to length(d) do
c := c + strtoint(d[i]);
if (b = c) then writeln('Yes') else writeln('No');
end.