Программа не доработана,не будет запускаться,очень много ошибок
// PascalABC.NET 3.0, сборка 1157 от 02.02.2016
begin
var s:=ReadlnInteger('Число:').ToString;
if Pos(ReadlnString('Цифра:'),s)>0 then Writeln('Есть в числе')
else Writeln('Нет в числе')
end.
<u><em>Тестовое решение:</em></u>
Число: 634
Цифра: 3
Есть в числе
Program n1;
var i: integer;
sum: real;
begin
sum:=0;
for i:=1 to 100 do sum:=sum+i*i;
writeln(sum);
end.
Добрый день.Это технология которая позволяет отсканировать книгу без участия человека Удачи)
program q;
var
m:array[1..5] of integer;
sum, j:integer;
begin
sum:=0
for j=1 to 5 do
begin
write('введите ',j ,'элемент массива: ');
readln(m[j]);
sum:=sum+m[j]
end;
sum:=sum/5;
writeln(sum)
end.