Задать вопрос!

Задать вопрос!

Все категории

Александр Да

4 года назад

12

Запишите на алгоритмическом языке

Запишите на алгоритмическом языке

Информатика

1 ответ:

hey hey4 года назад

0 0

А)а*х*х+b*x+c;
б)v+(a*t*t/2);
в)1/2(а+б)*h;
*-это знак умножения .Но записывать надо как*только посередине.и еще г) и д) я еще не проходила.

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

Переведите с латинского слово Calculi, которое лежит в корне слова (калькулятор)

ly007

Calculi - дело,но калькулятор пошел от другого слова <span>calculātor «счётчик»</span>

0 0

4 года назад

Нарисуйте пожалуйста блок-схему, задача с ветвлениями! Даны три действительных числа. Возвести в квадрат те из них которые не от

Arina84

Блок-схема - в прилагаемом файле.

0 0

4 года назад

Определить вес одной буквы следующих алфавитов: 1) мощность N алфавита = 128 букв; 2) мощность N алфавита = 256 буквам; 3) мощно

Dani4

1)128=2^7
ответ 7
2)256=2^8
ответ 8
3)8=2^3
ответ 3

0 0

4 года назад

Выполнить сложение и вычитание чисел, во 2-ой системе исчесления. Вот сами числа- 121 и 66. и 666 и 228. Можно написать только о

goqo [64]

1) 121 = 1111001

+

66 = 1000010

= 1111011

2) 666 = 1010011010

+

228 = 11100100

= 1101111110

0 0

1 год назад

5.1 Ввести с клавиатуры строку символов. Признак окончания ввода строки – нажатие клавиши "Ввод". Программа должна определить дл

марина86 [4]

<span>
var
  l,a,b:integer;
  s: string;
begin
write('Введите строку: ');
readln(s);
l:=length(s);
writeln('L=',l);
if l>6 then
   begin
a:=pos('(',s);
b:=pos(')',s);
if (a>0) and (b>0) then writeln(copy(s,a+1,b-a-1));
if (a=0) and (b>0) then writeln('Скобка не открыта');
if (a>0) and (b=0) then writeln('Скобка не закрыта');
if (a=0) and (b=0) then writeln('Текста в скобках нет');
end;
<span>end.

var
  n,i,k:integer;
  s,t: string;
begin
write('Введите строку: ');
readln(s);
t:=s;
repeat
i:=pos(' ',t);
delete(t,1,i);
until i=0;
k:=length(t);
for i:=1 to k do
if t[i]='k' then n:=n+1;
writeln('Кол-во букв k: ',n);
<span>end.</span></span></span>

0 0

4 года назад