ХЕЕЕЕЕЕЕЛП СРОЧНО НУЖНО РЕШИТЬ.КТО РЕШИТ ТОМУ 34 БАЛА ДАМ.ТОЛЬКО ПОМОГИТЕ!!!!

Знания

Информатика

1 ответ:

Yui [7]4 года назад

0 0

1)съедобное и не съедобное
2)районы
3)продукты

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

Где здесь ошибка:long double g = 0hff1205;

Даниил85

Long double g=off 1205

0 0

4 года назад

8 задание, кто понимает в информатике хорошо, напишите пожалуйста.

Olegg62 [21]

Program NoName;
var num: integer;
x, y: real;
Begin
readln(num);
if (num>=10)and(num<=99)then
begin
x := trunc(num/10);
y := (num/10-trunc(num/10))*10;
writeln(x+y);
writeln(x*y);
writeln(y*10+x);
end;
end.

0 0

4 года назад

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

Дан текстовый файл с именем input.txt в первой строке которого записано натуральное число N , а во второй строке N целых чисел.

Светлана Романович [732]

Если программа нужна на паскале и если считать, что числа, кратные и 100 и 11 записываются в оба файла, то программа будет такой:
var t,t1,t2,t3:text;n,a,i:integer;
begin
Assign(t,'input.txt');reset(t);
Assign(t1,'a.txt');rewrite(t1);
Assign(t2,'b.txt');rewrite(t2);
Assign(t3,'c.txt');rewrite(t3);
readln(t,n);
for i:=1 to n do
begin
read(t,a);
if a mod 100 = 0 then write(t1,a,' ');
if a mod 11 = 0 then write(t2,a,' ');
if (a mod 100<>0)and(a mod 11<>0) then write(t3,a,' ');
end;
Close(t);Close(t1);Close(t2);Close(t3);
<span>end.</span>

0 0

4 года назад

1)Вам 20 лет и вы - трудоголик. Вы работаете M (<16) часов в день. Каждый месяц нагрузка на работе увеличивается, и вам прихо

alex-007 [75]

Двадцать один год, но это не точно

0 0

4 года назад

привет всем!! помогите пожалуйста,времени мало.. дано целое число m>1. получить наибольшее целое k, при котором 4^k(четыре в

dobraya

4^k < m.

представим m как 4^log(4)m. (Это выражение равно m (по основному логарифмическому тождеству), 4 - основание логарифма).

4^k < 4^log(4)m.

k < log(4)m.

Т.е по идее получается, что наибольшее целое k = log(4)m с отбрасывание дробной части.

Сам код:

var m:integer; k:real;
begin
write('m = ');
readln(m);
k:=ln(m)/ln(4); {вычисляем логарифм m по основанию 4}
write('k = ',int(k)); {выводим целую часть}
end.

0 0

4 года назад