1 год назад

Турбо Паскаль. Определить является ли заданное число трехзначным.Спасибо.

Знания

Информатика

1 ответ:

Ирина -000 [6]1 год назад

0 0

read(n);

if (n>99) and (n<1000) then writeln('Yes');

Читайте также

Найдите наибольшее основание системы счисления, в которой запись десятичного числа 69 имеет три значащих разряда.

Татьяна Белосельская [10]

Для решения задачи необходимо наибольшее из значений x, для которых выполняются условия:
x^2 <= 69 и x^3 > 69
x=7: 7^2 = 49; 7^3 = 343
x=8: 8^2 = 64; 8^3 = 512
x=9: 9^2 = 81
Ответ: x=8

0 0

1 год назад

Три друга Алеша, Боря и Витя учатся в одном классе. Один из них ездит домой из школы на троллейбусе, другой-на трамвае, и третий

Daniil178511

Не вижу и малейшего отношения к программированию.
Что именно вы хотите видеть в программном коде ?

Ответ:
Алеша, Боря, Витя.
Алеша с кем-то идет к троллейбусу, когда подходит с ним к остановке появляется третий друг, который кричит из окна Боре (Значит Алена шел с Борей к троллейбусу). Исходя из этого Витя ездит на автобусе. Боря на троллейбусе (ибо он проводил друга до остановки, значит сам не поехал на троллейбусе, т.к. тогда было бы "вместе" шли или подобное), а значит троллейбус ему не нужен, а нужен трамвай.

Ответ:
Витя - автобус
Боря троллейбус
Алеша - трамвай.

Все. Что тут еще программировать, а ? это задача только на логику, а не на программирование..

0 0

4 года назад

Определите значение переменной после выполнения алгоритма: a:=4 b:=2 b:=a/2*b a:=2*a+3*b

Кристина Немцева

A - 20
b - 4...................

0 0

4 года назад

Информационный объём одного сообщения равен 512 битов, сообщение содержит 64 символа. Сколько символов в алфавите?

LeonidLynx [29]

Должно быть 8 символов

0 0

4 года назад

Прочитать ещё 2 ответа

Нужно доработать программу, таким образом, чтобы выводилось количество шагов, потребовавшихся для угадывания числа. Помогите, по

Mike Wolph

Program Ugaday;
var L,R,N,C,k:integer;
Y:0..1;
begin
k:=0;
writeln('Vvedite znachenie, v predelah kotorogo Vi zadumali chislo');
readln(N);
L:=1; R:=N;
while L<R do
begin
C:=(L+R) div 2;
k:=k+1;
writeln('Vashe chislo > ',C,'? Vvedite 1, esli Da i 0,esli Net');
readln(Y);
if Y=1then L:=C+1Else R:=Cend;writeln('Vi zadumali ', L,' ',k)
<span>end.</span>

0 0

4 года назад