Pascal,записи Удалить все символы «+», а символы, не являющиеся «+», удвоить

Знания

Информатика

1 ответ:

наглость [94]4 года назад

0 0

var

inStr, outStr : string;

i : integer;

begin

outStr := '';

ReadLn(inStr);

for i := 1 to Length(inStr) do

<span> if </span>inStr[i] <> '+' then

outStr := outStr + inStr[i] + inStr[i];

WriteLn(outStr);

end.

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

Написать программу для вычисления этого выражения на языке Python

никита9210 [17]

a, b = list(map(float, input().split()))

d = (b - 2 * a + b ** 2) / (4 * (b + a))

print(d)

0 0

4 года назад

Составьте программу для вычисления периметра и площади прямоугольника, если известны координаты противоположных вершин прямоугол

Джага [69]

Program qq;
uses crt;
var
x1,x2,y1,y2,a,b,S,P:integer;
Begin
Readln(x1,y1,x2,y2);
a:=x2-x1;
b:=y2-y1;
S:=a*b;
P:=(a+b)*2;
Writeln(S,P);
Readkey;
End.

0 0

4 года назад

C# Получить новое предложение, заменив согласные символом %25 баллов

bearhunter [10]

Код и результат выполнения на скриншотах.

0 0

4 года назад

укажите устройство ввода информации принтер;процессер; монитор; сканер;мышь; микрофон

Бюроинформ

мышь микрофон.............................................

0 0

4 года назад

Переведите число 126 из десятичной системы счисления в двоичную систему счисления, спасибо)

Djipers [23]

126/2 =63 остаток 0
63/2=31 остаток 1
31/2=15 остаток 1
15/2=7 остаток 1
7/2=3 остаток 1
3/2=1 остаток 1
1
записываем число из остатков деления в обратном порядке

ответ 1111110

0 0

2 года назад