Это минимум балов 30)))
п.с. можешь удалить этот коммент!
Очень легко 2метра за 1сек.
var
a, b: integer;
begin
write('Введите a: ');
readln(a);
write('Введите b: ');
readln(b);
var x := Range(a, b);
var y:=(x.Where(x -> (x>=10) and (x<=99)));
writeln('Двузначные числа от A до B: ');
y.Println;
writeln('Двузначные числа, которые делятся на 15: ');
y.Where(x -> (x mod 15)=0).Println;
end.
Var
x, y, d : real;
begin
read (x, y);
d := sqr (x) + sqr (y);
read (x, y);
if d > sqr (x) + sqr (y) then write ('Вторая ближе') else write ('Первая ближе');
end.
Блок-схема - в прилагаемом файле.
#include <iostream>
using namespace std;
int main() {
int b, k;
cin >> b;
k = (b-1)/1024+1;
cout << "k = " << k << "\n";
return 0;
}
Пример:
2050
<span>k = 3</span>