Program gt;
var n,i,a:integer;
begin
read(N);
a:=n div 4;
for i:=1 to a do
begin
if((n-i*4)mod 2=0)then writeln((n-i*4),' лап гусей и ',i*4,' лап заёцев');
end;
<span>end.</span>
#include <stdio.h>
int main()
{
int cm, m;
printf("Enter cm: ");
scanf("%d", &cm);
m = cm / 100;
printf("Result: %d meters.", m);
return 0;
<span>}</span>
===== PascalABC.NET =====
begin
Writeln('Плотность равна ',
ReadReal('Задайте массу, кг:') /
ReadReal('Задайте объем, м^3:'):0:1, ' кг/м^3')
end.
Значения плотностей составят:
а) 8900 кг/м³
б) 7100 кг/м³
Смотри сначало у тебя заходит k=1 и выполняется вычисления s=150-12=138 потом программа говорит перейти к следующей к=2 и снова идёт алгоритм s=138-12=126,k=3 s=126-12=114 , k=4 s=102 ,k=5 s=90 , k=6 s=78,k=7 s=66, k=8 s=54, k=9 s=42, k=10 s=30 т.к больше к нет , то он выведит ответ