Информатика

Даны числа A и В. Вычислить произведение P = 3*A+1*B·4*A+2*B· …· 53*A+51*B. Решение задачи в Паскале

Даны числа A и В. Вычислить произведение  P = (3*A+1*B)·(4*A+2*B)· …· (53*A+51*B). Решение задачи в Паскале var a,b,ml,i:longint;begin readln(a); readln(b); ml:=1; for i:=1 to 51 do begin     ml:=ml*((i+2)*a+i*b);     // можно тут добавить чтобы увидеть writeln(ml); end; writeln(ml);end.ну код будет выглядеть примерно так, но вместо обычного умножения должно быть длинное. Даже для маленьких значений не(…)

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

Уууу.! напишите программу для создания и закрашивания кораблика !

Прошууууу………………ПОМОГИТЕ!!!!!!!!!Пожалуйста напишите программу для создания и закрашивания кораблика  !!! если это надо сделать в pascal abc то вот:uses  graphABC;begin  setpencolor(clblue);  line(200,50,300,50);line(300,50,300,200);line(300,200,200,200);line(200,200,200,50);line(400,50,500,50);line(500,50,500,200);line(500,200,400,200);line(400,200,400,50);  setpencolor(clblack);line(500,50,600,200); line(300,50,400,200); setpencolor(clgreen); line(300,200,400,200); line(100,200,200,200); line(100,200,200,400); line(200,400,500,400); line(500,400,600,200); line(600,200,500,200); setpencolor(clred); Circle(250,300,30); circle(250,300,15);end.

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

1 Количество единиц в двоичной записи десятичного числа 1023 2 количество значащих нулей в двоичной записи десятичного числа 501

Помогите пожалуйста) 1) Количество единиц в двоичной записи десятичного числа 1023  2) количество значащих нулей в двоичной записи десятичного числа 501 1) 1023 = 1111111111, 10 единиц2) 501 = 111110101, 2 значащих нуля РешениеПервая задачаИз десятичной в двоичную можно переводить двумя способами: 1.      Сразу переводить в двоичную делением. 2.      Переводить в 16-ичную, после уже в двоичную. Первый(…)

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

!ответить на теств ячейку введены символы СУММG4:HКАК Excel воспримет эту информацию? аформула—стекстбошибка—дчислов ячейки

срочно!!помогите!!ответить на тест1.в ячейку введены символы СУММ(G4:H5).КАК Excel воспримет эту информацию?а)формула—с)текстб)ошибка—д)число2.в ячейки F6,F7,G6,G7 введены соответств.числа:10,3,4,2..в ячейке введена формула =СУММ(F6:G7).КАКОЕ ЧИСЛО БУДЕТ В ЯЧЕЙКЕ H5?А)19—с)7б)15—д)53.в ячейки B4,B5,C4,C5 введенЫ соответств. числа:10,7,6,5.в ячейку введена формула =СРЗНАЧ(В4:С5).Какое число будет в ячейке С7?а)2—с)15б)7—д)284.выберите верную запись формулы для электронной таблицыа)С3+4*D4—с)А5В5+23б)С3=С1+2*С2—д)=А2*А3-А45.В ячейку Е2 введена формула =С2+D1.Содержимое Е2 скопировали в ячейку Е6.какая формула буде(…)

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

Через какое минимальное количество лет сумма цифр года будет такой же, как и у текущего 2011 года? Выберите правильный ответ: A 1 Б

Через какое минимальное количество лет сумма цифр года будет такой же, как и у текущего 2011 года? Выберите правильный ответ:                           A) 1  Б) 5  В) 9  Г) 18  Д) 25   2011-сумма цифр 4.Переберем варианты ответа.2011+1=2012, сумма — 5 — не подходит2011+5=2016, сумма -9 — не(…)

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

Ребят, . написать программу на паскале. Вычислить среднеарифметическое четных элементов массива C10, не меньших 10

Ребят, помогите очень срочно. Нужно написать программу на паскале. Вычислить среднеарифметическое четных элементов массива C(10), не меньших 10 varc:array[1..10] of integer;SrAr:real;k, i, s:integer;begins:=0;{Обнуляем счетчик элементов(к) и сумму(s)}k:=0;randomize;for i:=1 to 10 do {заполняем массив} c[i]:=random(50);for i:=1 to 10 do if (c[i] mod 2=0) and (c[i]>10) then {если элемент массива четный и больше 10 увеличиваем счетчик к, увеличиваем сумму(…)

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

Написать программу определения стоимости разговора по телефону с учетом скидки 20% представляемой по субботам и воскресениям. Вид экрана:вычисление сто

написать программу определения стоимости разговора по телефону с учетом скидки 20% представляемой по субботам и воскресениям.Вид экрана: вычисление стоимости разговора по телефону (2р. — 1мин)введите исходные данныедлительность разговора (целое число минут) 3день недели ( 1-пон …. 7-воскр)? 6предостовляется скидка 20%стоимость разговора 4.80р program gt;var n,a:integer;s:real;beginreadln(n);readln(a);case a of1..5:s:=n*2;6:s:=10.4;7:s:=10.8;end;writeln(s);end.n-число минутa-день неделиесли case не проходили то можно сделать ifprogram(…)

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

Pascal. Массивы. Найти максимальный элемент и его номер

Pascal. Массивы. Найти максимальный элемент и его номер. program D1KPxx0;uses crt;vara:array [1..10] of integer;i,max,k:integer;beginfor i:=1 to 10 dobegina[i]:=random(101);write(a[i],’ ‘);end;max:=a[1];for i:=1 to 10 doif max<a[i] thenbeginmax:=a[i];k:=i;end;writeln(‘    ‘,max);writeln(k);end. Первый элемент считается нулевым) хотя проверь все))) может в конце просто K+1 вывести надо) не помню) мне влом) В переменной max_num находится текущее максимальное значение массива, а в max_index – его индекс

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