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

Написать программу на паскаль в целочисленной последовательности есть нулевые элементы создать новый массив из номеров этих элементов.массив задан программой.dat[1]=0 dat[6]=0dat[2]=13 dat[7]=17dat[3]=79 dat[8]=0dat[4]=23 dat[9]=0dat[5]=0 dat[10]=10

👇
Увидеть ответ
Ответ:
милана59
милана59
02.02.2023

var Dat:array [1..10] of integer;

i,k,j:integer;

a:array [1..10] of integer;

BEGIN

Dat[1]:=0;

Dat[2]:=13;

Dat[3]:=79;

Dat[4]:=23;

Dat[5]:=0;

Dat[6]:=0;

Dat[7]:=17;

Dat[8]:=0;

Dat[9]:=0;

Dat[10]:=10;

j:=1;

k:=0;

for i:=1 to 10 do

if (Dat[i]=0) then begin

a[j]:=i;

k:=k+1;

j:=j+1;

end;

for j:=1 to k do

write(a[j],' ');

end.

4,5(58 оценок)
Открыть все ответы
Ответ:
aluanakim
aluanakim
02.02.2023
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 оценок)
Ответ:
TaisiyaMe
TaisiyaMe
02.02.2023

Ха-ха-ха)) Белорусский учебник по информатике за 10 класс)))

Там все просто...

Программа №4

Program str999;
Uses CRT;
Var
s: String;
Begin
Writeln('Введіте фразу');
read(s);
if (s='край озер') then
writeln ('Край озер лесов и рек');
if (s='Я учусь в школе') then
writeln ('Я учусь в 10-м классе')
end.

 

 

 

Потхоньку буду дополнять, не так все быстро)) 

 

 

Задание №5

 

 

Program р_1;
Uses CRT;
Var
s: String;
Begin
Writeln('Введите фразу');
read(s);
if (s='моя родина Беларусь') then
writeln ('Беларусь моя родина');
if (s='люблю цябе мой родны кут') then
writeln ('мой родны кут люблю цябе')
end. 

4,6(4 оценок)
Это интересно:
Ф
Как стать членом Церкви Мормонов...
И
Как самостоятельно быстро научиться играть на акустической гитаре...
П
Как справиться с воздушной болезнью в самолете...
26.01.2022
Как стать центром внимания: справляемся с ролью новой девушки в старших классах...
К
Как заморозить овощи: полезные советы и рекомендации...
М
Мир-работы
30.04.2023
Как получить работу мечты: 5 шагов к успеху...
Х
Как сделать зажигалку: пользовательская инструкция...
К
Навсегда избавьтесь от истории Skype: подробная инструкция...
З
Здоровье
21.04.2021
Как распознать экзему: симптомы и признаки...
О
Лучшие способы самостоятельно создать аэрогель...
Новые ответы от MOGZ: Информатика
Dinomid93
Dinomid93
25.09.2021
Что делать если после нажатия всех кнопок и выключения не включается ноутбук ​...
yanastywa2000
yanastywa2000
21.08.2020
Наведіть приклади кількох властивостей форми і запишіть що визначає їх значення(информатика) ​...
Экфолорд
Экфолорд
15.08.2021
Домашнее задание Разгадай ребус. Составь предложение с этим словом. ​...
saidazimkkk
saidazimkkk
18.02.2023
Пусть A, B, C -логические величины, которые имеют следующие значения: A- ЛОЖЬ, B - ИСТИНА, C - ИСТИНА. Какие логические формулы будут являться истинными: 1. не А 2. A или B 3....
GrankaleS
GrankaleS
29.11.2020
Чего нового я узнал из курса информатики в 7 классе...
Any0070
Any0070
28.04.2021
Определите результат работы программы, записанной на языке паскаль(с срешением)! ! program aбvar i, m: integer ,for i: =3 to 7 dom: =m-6+iwriteln(m): end...
jlenabalkinaoyqk93
jlenabalkinaoyqk93
11.12.2021
Устройство для вывода на экран текстовой и графической информации...
stasshishakozo53x
stasshishakozo53x
12.03.2020
Вэлектронной таблице excel построен график функции на интервале -8 до 8. какая формула была записана в ячейке b1 перед копированием 1) 6*a1*a1+2*a1-9 2)-2*a1*a1-3*a1+10 3) -7*a1-12...
233423
233423
12.03.2020
Сможет ученик 1 класса выполнить следующий алгоритм: найти произведениеи чисел 12и 5 , найти частное чисел 36 и 9, найти сумму полученных произведений и частного ,сообщить сумму...
Siemens1
Siemens1
16.05.2021
Выражение: (4а-b)(а-6b)+а(25b-3а)= (2х+3y)(х-у)-х(х+у)= (3а+b)(a-2b)+(2a+b)(a-5b)= : )я в ничего не...

MOGZ ответил

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