4 года назад

Помогите решить вот это

Знания

Информатика

1 ответ:

Sneginka234 года назад

0 0

Блок-схема - в прилагаемом файле.
Program P;
var a,b,s:real;
begin
write('a='); readln(a);
write('b='); readln(b);
s:=a*b/2;
writeln('s=',s);
end.

Пример:
a=3
b=4
s=6

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

Выполняется в программе Pascal ABC.Строка содержит арифметическое выражение в виде двух чисел, между которыми стоит знак арифмет

Мурат Алтай [7]

Вот вам программа, пробовала компилировать и запускать на free-pascal, на всем остальном тоже должно пойти

0 0

3 года назад

Помогите ответить на вопросы в контрольной работе!!!1.Качество растрового изображения, полученного в результате сканирования, за

кирилл островский

1/ чем больше пикселей на изображении, тем оно качественнее Ответ в)
2/ первое расширение - программы архиватора, второй -текстовый (Word); третий-Блокнот; четвертый - Paint Ответ d)
3/ Ответ с)

0 0

4 года назад

Сколько мегабайт информации содержит сообщение объемом 2 бит?А)1 Б)8В)3Г) 323.(10 баллов)Какое минимальное количество отрезков,

Екатеhhh

Ответ:

1)в:3

2)г:4

3)д :0

4)в 100

5) б

0 0

3 года назад

Помогите решить 5 любых задач по паскалю, над каждую их 5 задач решить в while,for,repeat. над уже сегодня, и побыстрей

Вероникааххххх [1]

Program Node;
var a,b,NOD:integer;
begin
writeln('введите два целых числа a и b:');
readln(a,b);
while a<>b do
if a>b then a:=a-b
else b:=b-a;
NOD:=a; writeln('NOD=',NOD);
end.

0 0

3 года назад

Дана символьная строка. Найти слова , начинающиеся и заканчивающиеся на одну и ту же букву. Слова разделены ОДНИМ пробелом. язы

Денис Шалтыка [374]

Var s,sw: string;
   i,j,bst: integer;
begin
   s:='строка для решения арба еле реестр';
  bst:=1; sw:=''; write('строка для поиска - ');
  writeln(s);
   for i:=1 to length(s) do
  begin
if (Ord(s[i])=32) then
begin
if (s[bst]=s[i-1]) then
   begin
   for j:=bst to i-1 do sw:=sw+s[j];
  writeln('найдено слово - ',sw);
sw:='';
end;
    bst:=i+1;
   end;
   end;
   if (s[bst]=s[length(s)]) then
begin
      for i:=bst to length(s) do sw:=sw+s[i];
  writeln('найдено слово - ',sw);
  end;
<span>end.

</span>

0 0

4 года назад