println('кол-во символов -',readstring('слово-> ').length)
end.
пример:
741258963
кол-во символов - 9
б
begin
var s: =readstring('слово-> ').tolower;
println(s[1]=s[s.length]? '': 'не ');
end.
пример:
слово-> олово
в
begin
var s: =readstring('слово-> ');
println(s[1],s[2],s[s.length]);
end.
пример:
слово-> плотина
п л а
г
begin
println(readstring('слово-> ').length mod 2=0? 'четно': 'нечетно');
end.
пример:
слово-> виноград
четно
Ответ дал: Гость
var
n: integer;
begin
readln(n);
writeln(abs(n)-2);
end.
Ответ дал: Гость
квадрат вписан в круг при условии что r*2(диаметр)> диагонали квадрата
на qbasic
? "введите 2 числа - радиус круга и сторону квадрата соответсвенно"
input a; b
c=a*2 диаметр
g=sqr(a*a+a*a) диагональ
if c> g then 1 else 2
1 ? "квадрат вписан в круг"
goto 3
2 ? "квадрат не вписан в круг"
3 end
Ответ дал: Гость
A. решение на калькуляторе 1. находим общее количество пикселей n = 1024×768 = 786432 2. находим количество бит, необходимое для отображения цвета одного пикселя k=㏒₂64 = 6 (или просто вспоминаем, что 64=2⁶) 3. определяем объем информации в битах i = n×k = 786432×6 = 4718592 бит 4. переводим в более крупные единицы - в байты: 1 байт=8 бит; 4718592 бит/8 = 589824 байт - в кбайты: 1 кбайт=1024 байта; 589824 байт/1024 = 576 кбайт - в мбайты: 1 мбайт=1024 кбайта; 576 кбайт/1024 = 0.5625 мбайт. б. решение "в степенях двойки" 1. находим общее количество пикселей n = 1024×768 = 2¹⁰×2⁹×1.5 = 2¹⁹×1.5 2. находим количество бит, необходимое для отображения цвета одного пикселя k=㏒₂64 = 6 (или просто вспоминаем, что 64=2⁶) 3. определяем объем информации в битах i = n×k = 2¹⁹×1.5×6 = 2¹⁹×9 бит 4. переводим в более крупные единицы - в байты: 1 байт=2³ бит; 2¹⁹×9 бит/2³ = 2¹⁶×9 байт - в кбайты: 1 кбайт=2¹⁰ байт; 2¹⁶×9 байт/2¹⁰ = 2⁶×9 кбайт = 64×9 = 576 кбайт - в мбайты: 1 мбайт=2¹⁰ кбайт; 2⁶×9 кбайт/2¹⁰ = 2⁻⁴×9 мбайт = 9/16 мбайт = 0.5625 мбайт.
Популярные вопросы