№1
Стиральная машина, утюг, телевизор
№2
2(рубанок) и 4(швейная машинка)
№3
1-5,6
2-7
3-3
4-4
5-6
6-1
7-2
Указывайте, пожалуйста, язык программирования.
Могу предоставить код на C++:
int main(){
for(int x = 0; x <=20; x+=2)
{
printf("%i",9*(x*x)+6*x);
}
}
На pascal всё гораздо муторней.
var x,i:integer;
begin
x := 0;
for i:= 1 to 11 do
begin
writeln(9*(x*x)+6*x);
x := x + 2;
end;
end.
var
x, y, z: <em>real</em>;
a, b, c: <em>real</em>;
begin
readln(x, y, z);
if (x + y < 1) then
begin
a := (y + z) / 2;
b := (x + z) / 2;
c := (x + y) / 2;
x := a;
y := b;
z := c;
end
else
begin
x := sqr(x);
y := sqr(y);
z := sqr(z);
end;
writeln(x, ' ', y, ' ', z);
end.
Var
n,s:longint;
begin
Write('Введите натуральное четырехзначное число: ');
Readln(n);
s:=n mod 10;
n:=n div 10;
s:=s+n mod 10;
n:=n div 10;
s:=s+n mod 10;
n:=n div 10;
s:=s+n;
Writeln('Сумма цифр введенного числа равна ',s)
end.
<em><u>Тестовое решение:</u></em>
Введите натуральное четырехзначное число: 1745
Сумма цифр введенного числа равна 17