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

Программа с++ с клавиатуры вводится последовательность символов , завершающаяся символом ' s ' создать односвязный список .вывести на экран полученный список , в полученном списке заменить все буквы « а » на « в » , затем измененный список вывести на экран .

👇
Ответ:
5675431
5675431
25.01.2022

Задача не оптимальная и бредовая, что значит заменить все буквы? Удалить елемент, а затем на его место вставить новый, или просто заменить контекст одной буквой на вторую? Все это елементарно лечится отсеиванием ещё до внесения в список, зачем предпренимать лишние телодвижения?.. Тем не менее код в соотвествии с ТЗ, наверное



Программа с++ с клавиатуры вводится последовательность символов , завершающаяся символом ' s ' созда
4,6(41 оценок)
Открыть все ответы
Ответ:
AnonimStudent228
AnonimStudent228
25.01.2022
1
program z;
var
    i : integer;
begin
    Writeln('Введите число'); Readln(i);
    if i mod 2 = 0
        then
            Writeln('Число чётное')
        else
            Writeln('Число не чётное');
    readln;
end.

2
program z;
var
    i : integer;
begin
    Writeln('Введите число'); Readln(i);
    if i mod 3 = 0
        then
            Writeln('Число делится на 3')
        else
            Writeln('Число не делится на 3');
    readln;
end.

3
program z;
var
    i: array[1..6] of byte;
    x:byte;
begin
    for x:=1 to 6 do
    
        begin
            Writeln('Введите ', x,' цифру из 6 ');
            Read(i[x]);
        end;
    if (i[1]+i[2]) = (i[4]+i[5]+i[6])
        then
            Writeln('Билет счастливый')
        else
            Writeln('Билет не счастливый');
    Readln;
end.
        
5)))
program z;
var
    i : integer;
begin
    Writeln('Введите число'); Readln(i);
    if i mod 6 = 0
        then
            Writeln('Число делится на 6')
        else
            Writeln('Число не делится на 6');
    readln;
end.
6
program z;
var
    a,b:integer;
begin
    Writeln('Введите число A'); Readln(a);
    Writeln('Введите число B'); Readln(b);
    if b mod a = 0
        then Writeln('Число А делится нацело на число В')
        else Writeln('Число А не делится нацело на число B');
    Readln;
end.
4,8(60 оценок)
Ответ:
KsenyaKnyazeva1
KsenyaKnyazeva1
25.01.2022

znanija

Поиск...

Избавься от ограничений

ПОПРОБУЙ ЗНАНИЯ ПЛЮС СЕГОДНЯ

User avatar

Nastyukha0

10.02.2015

Информатика

5 - 9 классы

ответ дан • проверенный экспертом

заполнить массив состоящий из 10 элементов случайными целыми числами из промежутка [-50;50]. Выведите на экран и вычислите сумму всех отрицательных элементов. Как в программе паскаль. Заранее огромное с:

1

СМОТРЕТЬ ОТВЕТ

Что означает фраза "КАК в программе паскаль" ?:

И потом, "Выведите на экран и вычислите сумму" - это не по-русски, потому что сначала надо вычислить, а затем вывести.

Войди чтобы добавить комментарий

Реклама

ответ, проверенный экспертом

5,0/5

3

Участник Знаний

const

n = 10;

var

x: array[1..n] of integer;

i, s: integer;

begin

Randomize;

Writeln('Элементы массива');

s := 0;

for i := 1 to n do

begin

x[i] := Random(101) - 50;

Write(x[i]:4);

if x[i] < 0 then s := s + x[i]

end;

Writeln;

Writeln('Сумма отрицательных элементов равна ', s);

end.

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