Надо из 2 литрового сосуда налить 6 раз в 11 литр. сосуд воды . и во 2 сосуде останется 1литр
Это фотография, ответ под буквой а)
Var a,b,c,max: Integer;
begin
writeln('Введите a,b,c');
readln(a,b,c);
max:=a;
if max<b then max:=b;
if max<c then max:=c;
writeln('Наибольшее число: ',max);
end.
Программа для случая, когда в строке только "0", "1" и пробелы (т.е. проверки корректности ввода нет):
procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
i,k,max:integer;
begin
if combobox1.Text<>'' then
begin
s:=combobox1.Text;
combobox1.Items.Insert(0,s);
s:=s+' ';
while pos(' ',s)>0 do delete(s,pos(' ',s),1);
k:=0; max:=0;
for i:=1 to length(s) do
if s[i]<>' '
then k:=k+1
else begin
if k>max then max:=k;
k:=0;
end;
label1.Caption:='Количество символов в самой длинной группе: '+inttostr(max);
end;
end;
#include <stdio.h>
#define pi 3.14
int main(void){
double S, h, r;
printf("Введите высоту цилиндра: "); scanf("%f", &h);
printf("Введите радиус: "); scanf("%f", &r);
S = 2.0 * pi * h * r;
printf("Площади боковой поверхности цилиндра равна %.2f", S);
return 0;
}