Var
i, k, c, tetka1, tetka2: integer;
begin
readln(k);
readln(c);
tetka1 := 0;
tetka2 := 0;
for i:=1 to 3*60 do
begin
inc(tetka1, k);
inc(tetka2, c);
end;
if tetka1 > tetka2 then
writeln('Первая тётка говорит больше на ', tetka1 - tetka2, ' слов')
else
if tetka1 < tetka2 then
writeln('Вторая тётка говорит больше на ', tetka2 - tetka1, ' слов')
else
writeln('Обе тётки болтают с одинаковой эффективностью');
<span>end.</span>
Даю 30 баллов! Нужно перевести с Паскаля в C++. Помогите пожалуйста! Var a,b,c,d,e,max,min:integer; begin writeln('a, b, c, d, e
erehon [28]
#include <iostream>
#include <algorithm>
int main()
{
int arr[5];
for(int i = 0; i < 5; i++)
std::cin >> arr[i];
std::cout << "Минимальный = " << *std::min_element(arr, arr+5) << std::endl;
std::cout << "Максимальный = " << *std::max_element(arr, arr+5) << std::endl;
}
<span>var s : string; symb : char; i : longint;
begin
readln(s);
readln(symb);
if pos(symb,s)=0 then writeln('В этом слове нет этого символа')
else begin
i:=0;
while pos(symb,s)<>0 do begin
write(pos(symb,s)+i,' ');
i:=i+1;
Delete(s,pos(symb,s),1);
end;
end;
writeln;
writeln(i);
end.</span>
Научить солдат военному делу и десциплине
var a:array[1..15]of integer;
b:array[1..15]of boolean;
i,s:integer;
begin
for i:=1 to 15 do begin
readln(a[i]);
if a[i]<10 then s:=s+a[i];
if (a[i] mod 3=0) and{or} (a[i] mod 5=0) then b[i]:=true;
end;
for i:=1 to 15 do if b[i]=true write(i,' ');
writeln(s);
end.
var a:array[1..15]of integer;
i,k:integer; c:boolean;
begin
readln(k);
for i:=1 to 15 do readln(a[i]);
for i:=1 to 14 do if a[i]+a[i+1]=k then begin writeln('est'); c:=true; break; end;
if c=false then writeln('net');
end.
