Дана программа на языке Паскаль.

Программа определения весовой категории в зависимости от веса спортсмена. Если вес спортсмена меньше 62, то «лёгкая категория» иначе «средняя категория». Заполните пустые окошки.

program ves;

const

A1='легкая категория';

A2='средняя категория';

var

f : integer;

begin

write('введите вес спортсмена _ = ');

readln(_);

if < _ then writeln(A1) else writeln(A2);

readln;

end.

👇

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

Ответ:

risj83risj

10.02.2023

введите вес спортсмена 61

readln (f)

if f<62 и тд

Объяснение:

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

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

Ответ:

наиб3

10.02.2023

Под блокнотом подразумевается стандартный Windows Notepad. Он прост как дважды два, и таким и задумывался. Предназначен для просмотра и возможно редактирования простых текстовых файлов(не документов, форматирование не изменяется), например .txt, .xml, .html и тд
Им можно открыть и посмотреть текстовое представление любого файла, хотя большие файлы он не откроет (зависнет или упадет) и может иметь проблемы с кодировками.
Имеет простейшие функции типа поиск, замена, переход. А так же открыть и сохранить файл.

Если часто приходится иметь дело с текстовыми файлами предназначеными в первую очередь для чтенье компьютером типа программных кодов, скриптов и тд, то рекомендуется использовать специализированные блокноты типа Notepad++, Sublime Text, Vim, Akelpad и тд

MSO Word предназначен для создания, просмотра, редактирования текстовых документов (не просто текстовых файлов) предназначеных в первую очередь для просмотра людьми. Потому очень много уделяется внимания форматированию текста, можно добавлять всякие рисунки, таблички и прочее и прочее
Можно редактировать и простые текстовые файлы, но это не удобно

4,4(3 оценок)

Ответ:

Андріана1323

10.02.2023

//Как-то громоздко получилось, но я так вижу. Эх, выходные.
const n=5;
var a:array[1..n] of integer;
b:array[0..8] of integer;
ar:array[1..n] of integer;
i,c,j:integer;
begin
randomize;
writeln('Array:');
for i:=1 to n do
begin
a[i]:=random(8);
write(a[i]:4);
end;
for i:=1 to n do
begin;
for j:=0 to 8 do
if a[i]=j then inc(b[j]);
end;
for i:=1 to n do
begin;
for j:=0 to 8 do
if (b[j]>1) and (a[i]=j) then a[i]:=9;
if a[i]<>9 then
begin;
inc(c);
ar[c]:=a[i];
end;
end;
writeln;
for i:=0 to 8 do writeln(i,'=',b[i]);
writeln;
writeln('Final array:');
for i:=1 to n do
if a[i]=9 then a[i]:=0;

for i:=1 to c do
begin;
a[i]:=ar[i];
write(a[i]:4);
end;
end.

4,5(57 оценок)

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

Хобби-и-рукоделие

01.07.2020

Как разобрать кубик Рубика (3X3)...

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

06.12.2021

Как использовать инструмент «Кисть» в Adobe Illustrator...

Здоровье

29.01.2020

Как похудеть в лице: эффективные способы...

Философия-и-религия