Var
k,sum:integer;
begin
for k:=230 to 430 do
if (k mod 2<>0) then
sum:=sum+k;
write(sum);
end.
Var S:string;
i,r,k,t:integer;
Begin
r:=0;
k:=0;
t:=0;
Write('Введите строку: ');ReadLn(S);
For i:= 1 to Length(S) do
Case S[i] of
'r':r:=r+1;
'k':k:=k+1;
't':t:=t+1;
End;
WriteLn('r: ',r);
WriteLn('k: ',k);
WriteLn('t: ',t);
End.
Program Zadacha;
Var s: String;
c: Char;
i, pos, count:
Integer;
Begin
WriteLn('Введите слово:');
ReadLn(s);
WriteLn('Введите символ:');
ReadLn(c);
pos := 0;
count := 0;
For i := 1 To Length(s) Do
If s[i] = c Then
Begin
count := count + 1;
If pos = 0 Then
pos := i;
End;
WriteLn('Позиция символа в строке: ', pos);
WriteLn('Количество вхождений символа в строку: ', count);
ReadLn;
<span>End.</span>
program p
var
a,b,c,d : integer;
begin
readln(a),
readln(b),
readln(c),
readln(d),.
if (a<0) and (b/c=2) then witeln ((a+b+c+d)/4);
if (a*b*c*d>a+b+c+d) then begin witeln (a+b+c+d);witeln (a*b*c*d);end;
if (a*b*c*d>a+b+c+d)and((a<0) and (b/c=2)) then begin end else
begin
writeln(2*a) ;
writeln(2*b) ;
writeln(2*c) ;
writeln(2*d) ;
end;
end.