Информатика, вопрос опубликован 14.03.2019 07:50 Benedikt11

Решить для excel, нужно решить, прошу

Ответы
Ответ добавил: Гость

1.берешь сначала 500 монет на одну чашу и 500 на другую- в той что перевесит монеты настоящие тк фальшивая на 1гр меньше чем остальные монеты2.потом 500 монет те что легче снова делишь пополам 250 и 250 и в той что легче присутствует фальшивая монета3. анологично делим 250 на 125 и 125 и так    пока не останится 2 монеты, но произвести это действие не получится за 7 взвешиваний а только за 10 

Ответ добавил: Гость

var

a : array[1..10] of intenger; b : intenger; begin

b: =1;

for i: = 1 to 10 do

  begin

a[i]: =i+i*i;

end; for i: = 1 to 5 do begin b: =b*a[i*2]; end;   for i: =1 to 5 begin writeln(' ',a[i*2]); end;   writeln('произведение элементов массива, стоящих на четных местах=',b);

end.

Ответ добавил: Гость

а) 54.06  числовой

b) “abc”символьный

c) ложь логический

d) -1.3 числовой

e) “123” символьный

f) 15/06/96  дата

Ответ добавил: Гость

program m;

uses crt;

var a,b,c,sum: integer;

begin

clrscr;

readln(a,b,c);

sum: =a+b+c;

writeln('          ',sum);

readkey;

end.

Больше вопросов по информатике