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

Написать программу в которой будет меняться буква а на букву б. программа pascal,

👇
Ответ:
naithon00
naithon00
24.05.2023
Program test;
var a:integer;s:char;
begin
readln(s);
a:=ord(s)+1;
writeln(chr(a));
end.
4,6(12 оценок)
Открыть все ответы
Ответ:
missvolkova2001
missvolkova2001
24.05.2023

Автор — творец всякого литературного, музыкального или любого художественного произведения и вообще всякого произведения ума, воплощённого искусством. Помимо этого, под автором понимают создателя чисто научных работ, кода программного обеспечения, а также любых иных текстов.

Авторское право является формой защиты авторов и субъектов авторского права, предусмотренных Конституцией Украины и другими нормативно-правовыми актами, связанными с созданием и использованием произведений. Авторское право защищает как опубликованные, так и не выпущенные в свет произведения.

Если вы что-то создаете: книгу, инструкцию, чертежи — вы автор и ваши авторские права охраняет четвертая часть Гражданского кодекса.

 Закон защищает автора с момента создания творения. Чтобы стать автором, не надо платить госпошлину, заполнять заявления и стоять в очереди. Создайте что-нибудь и будьте автором.

Что считать «созданием», в законе четко не сказано, но есть оговорка, что это результат творческого труда. В юридической практике так:

Создал = поработал головой и руками.

4,7(88 оценок)
Ответ:
mar244144
mar244144
24.05.2023
1)

program raf105;

var i,j,del:integer;

begin

for i:=10 to 99 do

begin

 del:=0;

 for j:=1 to i do

 begin

   if (i mod j)=0

     then del:= del+1;

 end;

 if del=3

   then writeln(i);

end;  

end.

2)

program raf105;

var a,b,c:integer;

x:boolean;

begin

write('Введите число: ');

readln(a);

write('Введите искомую цифру: ');

readln(c);

while a<>0 do

begin

 b:= a mod 10;

 if x=false

   then x:= b=c;

 a:= (a-b) div 10;

end;

if x

 then writeln('В ведённом числе есть искомая цифра')

 else writeln('В ведённом числе нет искомой цифры');

end.

3)

a) 2

b) 1

c) 0

d) 1

e) бесконечно

Язык программирования PascalABC

4,5(44 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ