//PascalABC.NET 3.1 сборка 1219
begin
    var a := Range(1, 20).Aggregate(5, (s, x)-> s + 4);
    PrintLn(a);
end.

или более сложно

const
    n = 20;

var
    i, a: integer;

begin
    a := 5;
    for i := 2 to 20 do
        a := a + 4;
    writeln(a);
end.

0 0

3 года назад

Сколько цветов содержит рисунок размером 100*150 пиксел и объемом 29,3 Кб

Yllalisalwe

<u><em>15000 пикселей; 29,3 Кбайт=29,3*1024=30000 байт; 30000 / 15000=2 бита на пиксел; закодировать 4 цвета. я думаю так </em></u>

0 0

3 года назад

Прочитать ещё 2 ответа

Решить в С. Максимально примитивным языком. Нужна программа, которая вводит натуральные числа а и b и выводит на экран все нату

Мафуля [17]

#include <iostream>
using namespace std;

bool check(const int &n)
{
bool b = true;
int ch = n;
int de = n % 10;
while (ch > 0 && b) {
if (de == 0) {
b = false;
}
else if (n % de != 0) {
b = false;
} else {
ch /= 10;
de %= 10;
}
}
return b;
}

int main()
{
int a, b, k = 0;
cin >> a >> b;
for (int i = a; i < b; ++i) {
if (check(i)) {
cout << i << " ";
++k;
}
}
if (k == 0) {
cout << "-" << endl;
}
return 0;
}

0 0

4 года назад

Напишите в Qbasik простой домик (всёравно какой) и новогоднюю ёлку с герляндами! (просто рисунок)

JustDevil

1. домик

screen 12

line (200,120)-(360,320),6,BF

line (240,160)-(320,240),11,BF

line (280,40)-(200,120),2

line (280,40)-(360,120),2

line (200,120)-(360,120),2

paint (280,80),2

2. елка

screen 12

line (280,40)-(200,120),2

line (280,40)-(360,120),2

line (200,120)-(360,120),2

paint (280,80),2

line (280,120)-(200,200),2

line (280,120)-(360,200),2

line (200,200)-(360,200),2

paint (280,160),2

line (280,200)-(200,280),2

line (280,200)-(360,280),2

line (200,280)-(360,2800),2

paint (280,240),2

line (240,281)-(320,320),6,BF

line (240,80)-(320,120),8

line (240,160)-(320,200),8

line (240,240)-(320,280),8

circle(260,90),15,1

circle(280,100),15,3

circle(300,110),15,4

circle(260,170),15,5

circle(280,180),15,9

circle(300,190),15,11

circle(260,250),15,12

circle(280,260),15,13

circle(300,270),15,14

0 0

4 года назад