logo
Вход Регистрация Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
amina347
amina347
03.03.2020 15:40 •  Информатика

1)найдите произведение 2-х чисел при процедуры ввода и вывода на языке паскаль. 2) составить программу перевода из килобайт в бит . 3) найти программу на языке паскаль. надо заранее : 3

👇
Увидеть ответ
Ответ:
irynks468dig
irynks468dig
03.03.2020
1)var     a, b: integer;   Begin     readln(a, b);     writeln(a*b);   End. 
2)var     a: real;   Begin     write('Введите число в Кбайтах: ');     readln(a);     writeln(a * 1024 * 8, 'бит');   End.  
3) не понял
4,4(67 оценок)
Открыть все ответы
Ответ:
helpmepleasehelpls
helpmepleasehelpls
03.03.2020

1) для кодировки используется последовательность русского алфавита.

ключ: код

У кого сильные мышцы, тот победит одного. Кто силён знаниями, тот победит тысячи.

 

2) использыется последовательность русского алфавита, только со смещением на 1 букву. т.е. первая буква будет Я, вторая А, третья Б и т.д.

ключ: интернет

Трудно в учении - легко в бою

 

3) можно использовать код Цезаря (для кодировки нужной буквы используется буква, стоящая далее по алфавиту третьей)

ключ: длх - наименьшая единица измерения информации (бит)

ЦФТЗШ

4,4(7 оценок)
Ответ:
aluanakim
aluanakim
03.03.2020
Program one_a;
uses crt;
var s1,s2:string;
    p,a:integer;
begin
     readln(s1);
     readln(s2);
     p:=pos(s2,s1);
     if p=0 then writeln('no')
     else writeln('pos:',p);
end.

Program one_b;
uses crt;
var s1,s2:string;
    p,a:integer;
begin
     readln(s1);
     readln(s2);
     p:=pos(s2,s1);
     if p=0 then writeln('no')
     else
     begin
     a:=length(s2);
     delete(s1,p,a);
     writeln(s1);
     end;
end.

Program one_c;
uses crt;
var s1,s2:string;
    p:integer;
begin
     readln(s1);
     readln(s2);
     s2:=' '+s2+' ';
     readln(p);
     insert(s2,s1,p);
     writeln(s1);
end.

Program two_a;
uses crt;
var s1,s2,s3:string;
begin
     s1:='край озер ';
     writeln(s1);
     s2:='лесов и рек';
     writeln(s2);
     insert(s2,s1,length(s1)+1);
     writeln(s1);
end.

Program two_b;
uses crt;
var s1,s2,s3:string;
    p,a:integer;
begin
     s1:='Я учусь в школе';
     writeln(s1);
     s2:='в школе';
     s3:='в 10-м классе';
     p:=pos(s2,s1);
     a:=length(s2);
     delete(s1,p,a);
     insert(s3,s1,p+1);
     writeln(s1);
end.

Program three_a;
uses crt;
var s1,s2:string;
    p,a:integer;
begin
     s1:='моя родина Беларусь';
     writeln(s1);
     s2:='Беларусь';
     p:=pos(s2,s1);
     a:=length(s2);
     delete(s1,p,a);
     s1:=s2+' '+s1;
     writeln(s1);
end.

Program three_b;
uses crt;
var s1,s2:string;
    p,a:integer;
begin
     s1:='люблю цябе, мой родны кут';
     writeln(s1);
     s2:='мой родны кут';
     p:=pos(s2,s1);
     a:=length(s2);
     delete(s1,p,a);
     delete(s1,length(s2)-2,2);
     s1:=s2+','+s1;
     writeln(s1);
end.

Program four_a;
uses crt;
var s1,s2,s3:string;
    p,k,i,l,m:integer;
begin
     s1:='Минск столица Беларуси';
     writeln(s1);
     k:=0;
     for i:=1 to length(s1) do
         if copy(s1,i,1)=' ' then
         begin
              inc(k);
              l:=i;
         end;
     p:=pos(' ',s1);
     s2:=copy(s1,1,p-1);
     s3:=copy(s1,l+1,length(s1)-l+1);
     k:=length(s2);
     m:=length(s3);
     delete(s1,1,k);
     delete(s1,l-p+2,m);
     s1:=s3+s1+s2;
     writeln(s1);
end.

Program four_b;
uses crt;
var s1,s2,s3:string;
    p,k,i,l,m:integer;
begin
     s1:='Беларусь ты моя синеокая';
     writeln(s1);
     k:=0;
     for i:=1 to length(s1) do
         if copy(s1,i,1)=' ' then
         begin
              inc(k);
              l:=i;
         end;
     p:=pos(' ',s1);
     s2:=copy(s1,1,p-1);
     s3:=copy(s1,l+1,length(s1)-l+1);
     k:=length(s2);
     m:=length(s3);
     delete(s1,1,k);
     delete(s1,l-p+2,m);
     s1:=s3+s1+s2;
     writeln(s1);
end.

Program five_a;
uses crt;
var s1:string;
    x:integer;
begin
     readln(s1);
     for x:=1 to length(s1) do
         if copy(s1,x,1)=' ' then
         begin
              delete(s1,x,1);
              insert('_',s1,x);
         end;
     writeln(s1);
end.

Program five_b;
uses crt;
var s1:string;
    s2:char;
    x,y:integer;
begin
     readln(s1);
     y:=0;
     for x:=1 to length(s1) do
         begin
              s2:=s1[x];
              if (s2<>' ') and ((ord(s2)<48) or (ord(s2)>57)) then inc(y);
         end;
     writeln(y);
end.

Program five_c;
uses crt;
var s1:string;
    s2:char;
    x,y:integer;
begin
     readln(s1);
     y:=0;
     for x:=1 to length(s1) do
         begin
              s2:=s1[x];
              if (ord(s2)<=90) and (ord(s2)>=65) then inc(y);
              if (ord(s2)>=192) and (ord(s2)<=223) then inc(y);
         end;
     writeln(y);
end.
4,5(52 оценок)
Это интересно:
З
Здоровье
01.02.2021
Как стать стройным естественным путем: советы от эксперта...
К
Как сделать снимок в Windows Live Movie Maker: подробное руководство...
К
Как создать ISO файл в Linux: шаг за шагом руководство...
08.02.2021
Как найти счастье и любить себя, когда жизнь кажется трудной и неподатливой?...
О
Как помочь спасти окружающую среду...
З
Здоровье
01.10.2022
Как определить доминирующий глаз...
Ф
Открытие бизнеса торговли спорттоварами: полное руководство...
К
Как добавить звук в Google Презентацию...
К
Как найти железо в игре Minecraft: советы для начинающих игроков...
К
Как вычислить пропускную способность?...
Новые ответы от MOGZ: Информатика
Rekryt123
Rekryt123
16.07.2020
Каков признак тега, закрывающего контейнера ​...
bekarys3
bekarys3
17.11.2022
Какие объекты могут быть созданы и внедрения в текстовый документ собственными средствами текстового процессора word​...
ирина1523
ирина1523
06.05.2020
Информатика составьте програму для рисования елочки...
Ronnor
Ronnor
30.12.2020
Заполните схему 1. Архитектура Джона фон Неймана:   ​...
DLM1
DLM1
25.09.2020
Напишите программу, которая получает номер месяца и выводит соответствующее ему время года или сообщение об ошибке. Пример: Введите номер месяца: 5 Весна. Пример: Введите номер месяца:...
Aizere1111
Aizere1111
02.05.2021
Информатика 5калас кабылдаушы беруші ​...
munisa333
munisa333
20.03.2021
Совокупность, набор, коллекция объектов...
gulia2369
gulia2369
20.03.2021
Расположите алфавиты в порядке убывания их мощности: 1)алфавит рус.яз; 2)алфавит таблицы unicode; 3)алфавит записи целых чисел в шестнадцатеричной системе счисления; 4)алфавит записи...
Victoria200188
Victoria200188
16.01.2022
с задачей! Рисунок размером 448 на 384 пикселей занимает в памяти 63 кБайт (без учета сжатия) найдите максимально возможное количество цветов в палитре изображения...
mexoc
mexoc
12.06.2020
Информатика 8 класс. Паскаль....

MOGZ ответил

Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ Оформи подписку
О НАС
ПОМОЩЬ
App
.
.
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ