Решение во вложении ниже
небольшие пометки:
1. писал в ABC.net паскале команда power(x,2) - возведение Х во 2 степень, если писать в других оболочках паскаля, возможно можно будет использовать запись x^2
2. Формула сферы (x-x0)²+(y-y0)²+(z-z0)² = R²
где x0, y0, z0 - координаты начала (т.к. у нас начало в центре получаются эти координаты 0 0 0) и получаем формулу сферы x²+y²+z²=R²
причем эта формула для поверхности сферы, по условию задачи нужно найти точки внутри сферы, поэтому ставим не =, а < (если же понадобятся еще точки лежащие на поверхности сферы, нужно из < сделать <=)
Судя по коду ошибки, компилятор кажись не нашел файл) создай новый файл и назови main.cpp (в смысле название короткое латинское), перезапусти Visual Studio и радуйся
Это, конечно, ужасный вариант с "много Copy", но если надо ...
Program primer4;
var s:string; i,k:integer;
begin
writeln('подсчет количества глухих согласных в тексте');
writeln('введите текст');
readln(s);
k:=0;
for i:=1 to length(s) do
if (copy(s,i,1)='к')or(copy(s,i,1)='п')or(copy(s,i,1)='с')or
(copy(s,i,1)='т')or(copy(s,i,1)='ф')or(copy(s,i,1)='х')or
(copy(s,i,1)='ц')or(copy(s,i,1)='ч')or(copy(s,i,1)='ш')or(copy(s,i,1)='щ')
then k:=k+1;
writeln(k);
end.
Пример:
подсчет количества глухих согласных в тексте
введите текст
подсчет количества глухих согласных в тексте
17
Var
a, b: integer;
begin
Write('Введите через пробел делимое и делитель: ');
Readln(a, b);
Writeln(a, '/', b, '=', a div b, ', остаток ', a mod b)
end.
Тестовое решение:
Введите через пробел делимое и делитель: 1564 137
1564/137=11, остаток 57
K = 8*64*32 =2*3 * 2*6 * 2*5 = 2*14 (два в четырнадцатой) символов
16 бит = 2*4(два в четвертой) => Переводи в Юникод: 2*14 *2*4 = 2*18
1Кбайт = 2*13 бит
2*18 / 2*13 = 2*5 = 32Кбайта
Ответ:2