1)
program chik;
var a:array[1..100]of integer;
i,s:integer;
begin
for i:=1 to 11 do
begin
read(a[i]);
end;
s:=0;
for i:=1 to 11 do
begin
if(a[i] mod 5=0)then s:=s+a[i];
end;
write(s);
end.
2)
program chik2;
var a:array[1..100]of integer;
i,s:integer;
begin
s:=0;
for i:=1 to 11 do
begin
read(a[i]);
end;
s:=0;
for i:=1 to 11 do
begin
if(a[i] mod 2=1)then s:=s+1];
end;
write(s);
end.
3)
program chik3;
var a:array[1..1000]of integer;
i:integer;
begin
for i:=1 to 9 do
begin
read(a[i]);
end;
for i:=1 to 9 do
begin
if(a[i] mod 2=0)then write(a[i],' ');
end;
end.
<span>1. Бумажные презентации:
</span><span>2. Электронные презентации:</span>
Var
S1,S2,S3:string;
i:integer;
Begin
Write('S1: ');ReadLn(S1);
Write('S2: ');ReadLn(S2);
For i:= 1 to Length(S1) do
if i mod 2 = 0 then S3:=S3+S2
else S3:=S3+S1[i];
S1:=S3;
Write('S1: ',S1);
End.
Пример:
S1: 123456789
S2: ||
S1: 1||3||5||7||9
<em>// PascalABC.NET 3.3, сборка 1611 от 06.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
function Min3(a,b,c:real):=Min(a,Min(b,c));
begin
var (x,y,z):=ReadReal3('Введите три числа:');
Writeln('Минимальное: ',Min3(x,y,z))
end.
<u>Пример</u>
Введите три числа: 3.18 -2 5.7
Минимальное: -2