//Pascal ABC.NET v3.1 сборка 1172
Var
i:integer;
begin
for i:=1 to 9 do
writeln(i,'*5=',i*5);
end.
Var
a: array[1..10] of integer;
i, s, p: integer;
begin
for i:=1 to 10 do
readln(a[i]);
s:=0; p:=1;
for i:=1 to 10 do
if (a[i] mod 2 > 0) and (a[i] < 30) then
begin
s:=s+a[i];
p:=p*a[i];
end;
writeln(s);
writeln(p);
end.
Ответ:
ниже
Объяснение:
text = input()
text2 = input()
i = 0
while text[i] == text2[i]:
i += 1
print(i)
13*4+(13*2+3*2)*2)+3*4=140 метров *=умножение
Var
s1,s2 : String;
n,i : Integer;
Begin
n:=0;
Readln(s1);
Readln(s2);
For i:=1 to Length(s1) do If Pos(s1[i],s2)=0 then Inc(n);
Writeln(n);
end.