Все категории

4 года назад

Помогите пожалуйста с 5 и 6 номерами. (нужно написать программы по схеме)

Знания

Информатика

1 ответ:

sergeyyy4 года назад

0 0

№5
var
st1, st2: string;
T: integer;
begin
write('Строка, в которой будет произведен поиск: ');
readln(st1);
write('Что искать: ');
readln(st2);
T := pos(st2, st1);
writeln('"', st2, '" находится на позиции ', T);
end.

№6
var
st: string;
K, i: integer;

begin
write('Строка: ');
readln(st);
K := 0;
for i := 1 to length(st) do
begin
if st[i] = ',' then
K := K + 1;
end;
writeln('Кол-во запятых: ', K);
end.

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

Заполни таблицу, используя данные:771 6 12 18 11 5 29 9 452 13 99 398 53 Чётныечисла: Нечётные числа: Однозначные числа: двузна

азареос

Чётные:6,12,18,452,398
Нечётные числа:771,11,5,29,9,13,99,53
Однозначные числа:6,5,9,
Двузначные числа:12,18,11,29,13,99,53
Трёхзначные числа:771,452,398
Четные однозначные числа:6,
Четные двузначные числа:12,18,

0 0

4 года назад

Прочитать ещё 2 ответа

Скорость передачи данных через WAP-соединение равна 262144бит/с. Через данное соединение передают файл размером 384 Кбайт. Опред

Vanea [97]

T = 384•1024•8/262144 = 12 c

0 0

4 года назад

Прочитать ещё 2 ответа

Прошу помогите написать программу в Паскале)С клавиатуры ввели число. Если это число нечетное, то нужно найти сумму чисел в диап

yvo

Заметим, что числа образуют арифметическую прогрессию, а её сумма известна:
$S= \frac{a_1+a_n}{2}\times n= \frac{1+n}{2}\times n$
Поэтому два варианта программы: один вычисляет сумму накоплением, второй сразу определяет результат по формуле. Хороший пример того, что программист должен знать математику.

var
n, i, s: integer;

begin
Write('Введите натуральное число: ');
Readln(n);
if (n mod 2) = 0 then
begin
    s := 0;
    for i := 1 to n do s := s + i;
    Writeln('Сумма чисел от 1 до ', n, ' равна ', s)
end
else Writeln('Введено нечетное число')
end.

Тестовое решение:

Введите натуральное число: 8
Сумма чисел от 1 до 8 равна 36

var
n, s: integer;

begin
Write('Введите натуральное число: ');
Readln(n);
if (n mod 2) = 0 then
    Writeln('Сумма чисел от 1 до ', n, ' равна ', ((1 + n) * n) div 2)
else Writeln('Введено нечетное число')
end.

Тестовое решение:

Введите натуральное число: 8
Сумма чисел от 1 до 8 равна 36

0 0

3 года назад

Надо написать программу на c++

cegthzirf [14]

#include <iostream>

using namespace std;

int main() {

cout << 7 * 8 / 2; // S = a * h / 2;

return 0;

}

=========================================================

#include <iostream>

using namespace std;

int main() {

int d;

cout << "d = ";

cin >> d;

cout << d * 12 / 2; // S = d1 * d2 / 2;

return 0;

}

=========================================================

#include <iostream>

using namespace std;

int main() {

int ml, botb;

cout << "Enter middle line = ";

cin >> ml;

cout << "Enter the bottom base = ";

cin >> botb;

cout << "The top base = " << 2 * ml - botb;

return 0;

}

0 0

4 года назад

Пятеро семиклассников Алина, Диана, Миша, Артур и Кирилл заняли призовые места в дистанционных олимпиадах по информатике, матема

Filin97

Решать задачу удобнее всего с помощью таблицы. Сначала в таблицу нужно занести информацию, заданную в условии, проставляя знак "-" в соответствующие ячейки. Из постановки задачи следует, что в каждой строке и в каждом столбце этой таблицы может стоять только один "+". Следовательно, ответ задачи определяется сразу после записи всех "-" и этот ответ - Артур. Таблицы - в прилагаемом файле.

0 0

3 года назад