Информатика

Определитель, что выводится на печать врезультате выполнения следующей программы, если ввели b = 7, c = Program raschet-var a, b, c, i: integer — be

Определитель, что выводится на печать в результате выполнения следующей программы, если ввели b = 7, c = 2.  Program raschet; var a, b, c, i: integer;  beginread(b,c);writeln(‘b=’,b,’c=’,c);i:=b div c;case i of  1: a:=b+c;  2: a:=b-c; 3: a:=2*(b+c);  4: a:=b*c; end;writeln(‘a=’,a); end.   результате выполнения следующей программы: a=18 оооответ:7 2b=7 c=2a=18

Читать далее >

Вученической бригаде 86 старшеклассников. 8 из них не умеют работать ни натракторе, ни на комбайне. 54 хорошо овладели трактором, 62- комбайном. Сколь

В ученической бригаде 86 старшеклассников. 8 из них не умеют работать ни на тракторе, ни на комбайне. 54 хорошо овладели трактором, 62- комбайном. Сколько человек могут работать и на тракторе и на комбайне? Вученической бригаде 86 старшеклассников. 8 из них не умеют работать ни натракторе, ни на комбайне. 54 хорошо овладели трактором, 62- комбайном. Сколькочеловек(…)

Читать далее >

Написать программу в Паскале по ветвлениямВвести последовательно возраст Антона, Бориса и Виктора. Определить, кто из них старше

Помогите срочно нужно написать программу в Паскале по ветвлениям) Ввести последовательно возраст Антона,Бориса и Виктора. Определить,кто из них старше. Пример: Возраст Антона: 15 Возраст Бориса: 17 Возраст Виктора: 16 Ответ: Борис старше всех. Пример: Возраст Антона: 17 Возраст Бориса: 17 Возраст Виктора: 16 Ответ: Антон и Борис старше Виктора. Заранее спасибо большое) program chik;var a,b,c:integer;beginwrite(‘Возраст(…)

Читать далее >

Как нарисовать сердце в АВСПаскаль?

как нарисовать сердце в АВСПаскаль?  line(300,300,150,150);   line(150,150,150,100);    line(150,100,180,80);     line(180,80,210,80);       line(300,130,390,80);   xc:=windowwidth div 2; var dx,dy,xc,x1,y1:integer;         line(420,80,450,100);      line(210,80,300,130); begin hidecursor; setpencolor(clblue); setpenwidth(6);  end.        line(390,80,420,80);           line(450,150,300,300);          line(450,100,450,150);           floodfill(190,130,clred); program serdce;uses graphABC,crt;

Читать далее >

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

1)      Требовалось написать программу, которая определяет, можно ли построить треугольник из отрезков с длинами х, у, z. Программа должна выводить соответствующее текстовое сообщение. Программист сделал в программе ошибки. var х, у, z: real;   begin  readln (x, у, z);   if (x + y > z) then   begin  if (x + z > y) then(…)

Читать далее >

Хитрая Кикимора решила в отсутствие Змея Горыныча разыскать спрятанный им клад. Для этого Кикимора должна за 3 дня успеть найти владения Змея Горыныча

Хитрая Кикимора решила в отсутствие Змея Горыныча разыскать спрятанный им клад. Для этого Кикимора должна за 3 дня успеть найти владения Змея Горыныча и обследовать 4 пещеры. За первый день она может найти владения Змея Горыныча, за второй день она сможет обследовать первую или вторую пещеру. Нарисуйте «Дерево решений» и найдите, сколько разных вариантов есть(…)

Читать далее >

Перевести числа из восьмеричной в двоичную:7654- 52364Перевести из восьмеричной в шестнад.565656- 1234567

Перевести числа из восьмеричной в двоичную:7654; 52364Перевести из восьмеричной в шестнад.565656; 1234567 Алгоритм перевода чисел из одной системы счисления в другую наиболее прост в том случае, когда одно из оснований этих систем является степенью другой, как, например, в случае двоичной и восьмеричной систем счисления. В таком случае алгоритм перевода состоит в простой замене чисел одной(…)

Читать далее >

Определитезначение переменной S после выполнения операторов:i:=0-S:=0While i<5 doBegini:=i+2-S:=S+i*iEnd - Телоцикла While длявычисления значений

1.  Определите значение переменной S после выполнения операторов:i:=0; S:=0While i<5 doBegini:=i+2;S:=S+i*iEnd;2. Тело цикла While для вычисления значений функций f(x)=x4,  на отрезке [-5,5] с шагом 10 будет иметь вид: f:= x+x+x+x; x:=x+10;writeln (f,x);f:=x4; x:=x+10;writeln (f,x);f:= x*x*x*x; x=x+0.10;writeln (f,x);f:= x*x*x*x; x:=x+10; writeln (f,x); 1) ответ s:=4; 2) ответ 2

Читать далее >