<h3>PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var A:='Аэродинамика';
A[5:].Println;
A[5:12].Println;
(A[9]+A[12]+A[3]+A[6:9]+A[5]).Println
end.
<h2>Пример</h2><h3>динамика</h3><h3>динамик</h3><h3>маринад</h3>
Ответ:
1024 байта = 1 Кбайт
2048 бит = 0,25 Кбайт
Объяснение:
2048 бит = 2048 / 8 / 1024 = 0,25 Кбайт
1) program ht1;
var v,p,r:real;
begin
p:=3.14;
writeln ('vvedite r');
readln (r);
v:=4/3*p*(r*r*r);
writeln(v);
end.
2) program ht2;
var x,y,r:integer;
begin
writeln('vvedite r);
readln(r);
writeln('vvedite x');
readln (x);
writeln ('vvedite y');
readln (y);
if (x<=r) and (y<=r)
then writeln ('prinadlezhit')
else writeln ('ne prinadlezhit');
end.
3) а в третью я врубиться не могу.
Устройство ввода-вывода.
Ввод - микрофон, вывод - наушники.
Так как изначально в задании указано : "на любом известном вам языке программирования" - вот, держи на С.
#include <stdio.h>
#include <stdlib.h>
#include <locale.h>
#define N 100
int main()
{
setlocale(LC_ALL, "Rus");
int i, M;
float B[N], MIN;
printf(" Введите количество элементов массива (не больше 100) => ");
scanf("%d", &M);
if (M < 100)
{
for (i = 0; i < M; i++)
{
printf("Введите [%d] элемент массива =>", i);
scanf("%f", &B[i]);
}
for (i = 0; i < M; i++)
printf("%1.0f ", B[i]);
MIN=B[0];
for (int i=1; i<M; i++)
{
if (B[i]<MIN)
MIN=B[i];
}
printf ("\n\tМинимальное значение в массиве => %7.2f", MIN);
}
else
printf("Ошибка. Заданное число элементов массива слишком большое.");
return 0;
}
