Var
sum, x : integer;
begin
sum := 0;
repeat
read (x);
if (x mod 6 = 0) and (x mod 10 = 2) then sum := sum + x;
until x = 0;
write (sum);
end.
1) 12(в16с/c) =1*16 +2 = 18 (в 10c/c)
12( в 8с/с) = 1*8+2 =10 (в 10с/с)
10 (в 2 с/с) = 2 ( в 10с/с)
18+10*2 = 38 (в 10с/с)
38(в10с/с) = 46(в 8с/с) = 100 110 (в 2с/с) = 26 (в 16с/с)
2) ошибка в записи 4) , в 7с/с нет цифры 7 ( а есть 0 1 2 3 4 5 6 )
//Dev-C++ 5.11 (C)
float zna(float a,float b,float c)
{if(c*a-a*b==0)
{printf("An attempt to divide by zero");
return 0;}
else
return ((a*b+b*c)/(c*a-a*b));}
Var
i,x:integer;
sr:real;
begin
sr:=0;
for i:=1 to 4 do
begin
write('Оценка за задачу №',i,' ');
readln(x);
sr:=sr+x;
end;
sr:=sr/4;
write('Средняя оценка ',Round(sr));
End.<span>
</span>
Какой язык? Я напишу как это делается на С.
int massiv [5];
int i=0;
for(i=0; i<5; i++){
massiv[i]=massiv[i]*2;
}
for(i=0; i<5; i++){
printf("%d ", massiv[i]);
}
Как-то так!)
Если чего-то не то, пишите, я отвечу!