Орфографические вроде бы.
Отправитель<span>, стремящийся оказать на </span>получателя<span> то или иное воздействие, передает ... </span>Получателю<span> для пониманий </span>информации<span> не -. обходимо декодировать ... Полный единичный цикл коммуникации, или простая </span>схема<span> ее структуры, ... </span>отправителя<span> и </span>получателя информации, но и сам процессобмена<span> ...</span>
Нашел 2 ошибки в 4- строке и 7- строке, объясняю на примере а=15, b=26
как я понял по данным задачи К больше или равно А то есть начальное значение S = A, вторую ошибку можно решить просто поменяв местами операторы 7-ой и 8-ой строки(чтобы сначала программа суммировала S=15+15 а потом уже 30+16,46+18...пока S<B а в задаче делается так 16+1,16+17, 30+18,...) в общем:
var a, b, s, k: integer;begin
read(a,b);
s := a;<-----
k := a;
while s < b do begins := s+k;<------k := k+1;<----end;writeln(k)end.
если
a=15 b=36
ответ будет :15
чесно говоря без них куда легче
var s:string;
i:integer;
Begin
read(s);
for i:= 1 to length(s) do
if i mod 2 = 0 then s[i]:='*';
writeln(s);
End.
с ними только больше кода
var s:string;
i:integer;
Begin
read(s);
for i:= 1 to length(s) do
if i mod 2 = 0 then begin
Delete(s,i,1);
Insert('*',s,i);
end;
writeln(s);
End.
// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
var a:=Random(1,9);
var b:=Random(1,9);
Writeln('Сколько будет ',a,'x',b,'?' );
var c:=ReadInteger('Введите ответ и нажмите Enter ->');
if c=a*b then Writeln('Правильно!')
else Writeln('Вы ошиблись, ',a,'x',b,'=',a*b)
end.
<u><em>Тестовые примеры:</em></u>
Сколько будет 7x4?
Введите ответ и нажмите Enter -> 28
Правильно!
Сколько будет 8x7?
Введите ответ и нажмите Enter -> 65
Вы ошиблись, 8x7=56
