Var s,s1:string; i,l:integer;
Begin
s1:='';
write('Введите строку: ');readln(s);
l:=Length(s);
if l mod 4 = 0 then
Begin
For i:=l div 2+1 to l do
s1:=s1+s[i];
For i:=1 to l div 2 do
s1:=s1+s[i];
writeln('Полученная строка: ',s1);
End
else writeln('Длина строки не кратна 4');
End.
Нужно перевести в c#. Ещё лучше- visual studio с кнопками)(не обязательно)
271
342
Ответы на вопрос:
Рисуешь таблицу в Excel, в A1 пустая клетка, по горизонтали месяцы (B1-G1),
по вертикали продукты (A2-A4).
В январе (B2, B3, B4) пишешь в каждый продукт его начальную цену,
в феврале (C2, C3, C4) пишешь формулы
Картофель: C2=B2*1,005, Молоко: C3=B3*1,02, Яйца: C4=B4*1,01
Потом копируешь столбец С во все столбцы от D до G.
Популярно: Информатика
-
hippol12.08.2022 00:27
-
Артем152622.05.2021 03:55
-
teorem11.08.2022 13:43
-
gtgcfgsg656726.03.2022 16:56
-
11111009873528003.05.2020 10:06
-
польска17.06.2022 01:00
-
sweetmalboro19.04.2021 22:52
-
ra1si1ka117.02.2020 04:50
-
Kira567230.12.2020 14:55
-
STALKER18KEK19.02.2022 19:29