Выравнивание по левому краю: Ctrl+L
Выравнивание по правому краю: Ctrl+R
Выравнивание по центру: Ctrl+E
Выравнивание по ширине: Ctrl+J
Жирный: Ctrl+B
Курсив: Ctrl+I
Подчеркнутый: Ctrl+U
Верхний индекс: Ctrl+Shift+ (знак +)
Нижний индекс: Ctrl+ (знак =)
<span>Изменение регистра символов: (скорее всего просто нажать на данную кнопку)</span>
1. 4 файла, 4 папки, Е:\БАЙКАЛ\ВЕТРЫ\Сарма.jpeg
2. Байкал
3. М, О, Б, Е, Л, Т, Ц
4. Недобрала, подобрел (так как два символа до и три символа после слова "добр")
begin
var P := ReadArrInteger('Пол (0-жен, 1-муж) - 8 значений:', 8);
var S := ReadArrInteger('0-холост, 1-женат (8 значений):', 8);
var (k10, k00) := (0, 0);
for var i := 0 to 7 do
if (P[i] = 1) and (S[i] = 0) then
Inc(k10)
else if (P[i] = 0) and (S[i] = 0) then
Inc(k00);
Println('Холостых мужчин:', k10);
Println('Незамужних женщин:', k00)
end.
#include <stdio.h>
int main()
{
int x, y, z, min, max;
printf("Введите x и y:\n");
scanf("\%d \%d", &x, &y);
if (x<y) min = x; else min = y;
if (x*y>x+y) max = x*y; else max = x+y;
printf("min = \%d max = \%d\n",min,max);
z = min+max;
printf("z = \%d",z);
system("pause");
return 0;
}
Пример:
<span>Введите x и y:
10 45
min = 10 max = 450
z = 460</span>
<h3>PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ReadArrString(5);
var b := a.Select(t -> t.Length).ToArray;
var n := b.Max;
for var i := 0 to 4 do
Writeln(a[i]:n, b[i]:3)
end.