Написать программу в которой нужно узнать имя пользователя и вывести его 100 раз разделяя строкой ‘/\’. Входные данные: Лидия Выходные данные: /\Лидия/\Лидия/\Лидия/\Лидия/\Лидия/\Лидия… … /\Лидия/*\ Имя повторяется 100 раз!

👇

Увидеть ответ

Ответ:

sbelikova44

26.03.2022

def n100(name):

out = ""

for i in range(100):

out += name + "/*\\"

print(out)

n100("Лидия")

4,6(97 оценок)

Ответ:

2005NeZnayka2005

26.03.2022

program N;

var a,b:string;

var i:integer;

begin

writeln('Введите имя');

readln(a);

for i:=1 to 100 do

write(a,'/*\');

end.

Вход:Lidia

Выход:Lidia/*\Lidia/*\Lidia/*\Lidia/*\Lidia/*\

4,6(80 оценок)

Открыть все ответы

Ответ:

emalets20042

26.03.2022

--- gfortran 6.3 ---
program prog1
integer N, k, i, j
real a(10,10)
read *, N
print *, 'Матрица:'
do i = 1,N
do j = 1,N
a(i,j) = sin(1.0*i+1.0*j/2)
end do
end do
do i = 1, N
print *, (a(i,j), j=1,N)
end do
k = 0
do i = 1, N
do j = 1, N
if(a(i, j) > 0) k = k+1
end do
end do
print *, k
end

Результат:
4
Матрица:
0.997494996 0.909297407 0.598472118 0.141120002
0.598472118 0.141120002 -0.350783229 -0.756802499
-0.350783229 -0.756802499 -0.977530122 -0.958924294
-0.977530122 -0.958924294 -0.705540299 -0.279415488
6

4,6(83 оценок)

Ответ:

mobidik77

26.03.2022

Program aaa;
var
s, b, l, c: real;
begin
writeln('введите s, b, l');
readln(s, b, l);
c := b / 100 * s * 2 * l;
writeln('стоимость поездки: ', c)
end.

program aaa;
{Написать программу пересчета веса из фунтов (f) в килограммы (kg)
(1 фунт равен 409,5 г).}
var
f,kg: real;
begin
writeln('введите f');
readln(f);
kg:=f*409.5/1000;
writeln(f,' фунтов = ', kg:8:3,' килограмм')
end.

program aaa;
{Написать программу Конвертер величин:
с клавиатуры вводиться вес информации в байтах (b).
На выходе получаем перевод величины в: биты (bi) , килобайты (kb),
Мегабайты (mb), гигабайты (gb).
1байт = 8 бит
1Кб (килобайт) = 1024 байт
1Мб (мегабайт) = 1024 Кб
1Гб (гигабайт) = 1024 Мб
1Тб (терабайт) = 1024 Гб}
var
b,bi,kb: real; mb,gb,tb: decimal;
begin
writeln('введите b');
readln(b);
bi:=b*8;
kb:=b/1024;
mb:=kb/1024;
gb:=mb/1024;
tb:=gb/1024;
writeln(b,' байт = ', bi,' бит');
writeln(b,' байт = ', kb,' килобайт');
writeln(b,' байт = ', mb,' мегабайт');
writeln(b,' байт = ', gb,' гигабайт');
writeln(b,' байт = ', tb,' терабайт')
end.
//формат вывода (к-во знаков ...) определите сами

4,7(21 оценок)

Это интересно:

Финансы-и-бизнес

01.02.2020

Как купить марки, не выходя из дома: советы и рекомендации...

Искусство-и-развлечения

07.01.2021

Как скрыться: лучшие способы оставаться невидимым...

Компьютеры-и-электроника

25.08.2022

Как удалить iSearch AVG - подробная инструкция...

Мир-работы