Таблица истинности, см. приложение
1)
var
V,a: integer;
begin
write('Введите длину ребра: ');
readln(a);
V:=a*a*a;
writeln('Объём куба: ',V);
end.
2)
var
a,b,c,S: integer;
begin
writeln('Введите длины ребер:');
readln(a,b,c);
S:=2*a*b+2*a*c+2*b*c;
writeln('Площадь поверхности кирпича: ',S);
end.
3)
var
r,l: real;
begin
write('Введите радиус окружности: ');
readln(r);
l:=2*Pi*r;
writeln('Длина окружности: ',l);
end.
С дано задачи? Я тут даже не знаю что надо в дано писать.
Разве что так:
Дано:
Символ = 16 бит
Найти:
Размер предложения
(Бред написал какой-то, но такой тип задач не решается через дано)
Решение:
Ну в общем, нужно посчитать каждый символ в этом предложении (точки и пробелы тоже считаются)
СЛУХ_ОБО_МНЕ_ПРОЙДЕТ_ПО_ВСЕЙ_РУСИ.
34 символа.
Так-как, 1 символ = 16 бит, то 34 х 16 = 544 бит
544 бит = 68 байт
<u>PascalABC.NET 3.4.0, сборка 1675 от 12.06.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
ReadlnString.Select(c->integer(Ord(c))).Sum.Println
end.
Погнали.
В первом блоке у нас объявление переменных целого типа b равное 20 и и c равное нулю (0).
Следующий блок открывает цикл с условием, пока b (20) > 3, выполнять блок, который увеличивает значение переменной c = c + b и b = b - 5.
Накатав сей алгоритм на шарпе, вот результат лога из консоли: