а) Функция возвращает длину строки, k = 10
б) Возвращает 4 символа начиная с 4-го из строки Str1, s = ' ned'
в) Удаляет из Str1 2 символа начиная с4-го, Str1 будет = 'denedeli'
г) Вставляет Str1 в Str2 начиная с третьего сивола, Str1 не изменится, Str2 будет = 'deden nedeli'
д) Возвращает позицию Str1 в Str2. В Str2 нет Str1, значит функция вернет 0
Ерунда, а не задача.... трижды одно и то же разными словами.
Program ads;
var
i :integer;
z,x,a :real;
begin
writeln('Введи цену за килограмм');
readln(z);//Узнаём цену за 1 кг.
a:=0.1;//начальный вес 100 грамм.
for i :=1 to 10 do begin
write('Цена за ');
write(a:5:2); //Выводим вес
x:=z*a;//Высчитываем цену за a грамм
a:=a+0.1;//прибавляем 100 грамм
write(' килограмм равна - ');
write(x:5:2);//Выводим цену за вес
writeln;
end;
readln;
end<span>.</span>
(500•1024•1024)/(1024•64•128) = 62,5
Ответ: 62 книги, так как половину книги не в счет.
P.s. Это решение правильно, если 1 символ кодируется 1 битом.
#include<iostream>
using namespace std;
int main()
{
int A;
cin >> A;
int Min = A;
int Max = A;
while(A)
{
cin >> A;
if (Max < A && A!=0) Max = A;
if (Min > A && A!=0) Min = A;
}
cout <<"Min = "<<Min<<"\n";
cout <<"Max = "<<Max<<"\n";
cout <<"Min - Max = "<<Min-Max<<"\n";
return 0;
}