1. в языке php создайте генератор случайного числа от 1 до 10. выведите результат выполнения на экран любым если полученное случайное число четное, выведите на экран слово «четное», иначе выведите на экран слово «нечетное». 3. используйте оператор switch case для соблюдения следующих требований: если случайное число больше 5, выводите его на экран красным цветом; если случайное число меньше 5, выводите его на экран зеленым цветом; если случайное число равно 5, выводите его на экран желтым цветом. upd: обязательно на php

👇

Ответ:

taxirkuliev

24.03.2023

ВОТ КОД
ВОТ КОД
ВОТ КОД
ВОТ КОД
ВОТ КОД
1. в языке php создайте генератор случайного числа от 1 до 10. выведите результат выполнения на экра

4,8(65 оценок)

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

Ответ:

Tandy

24.03.2023

Существует несколько тысяч языков программирования. Мы с вами познакомимся с языком программирования Паскаль, который был разработан в 70 -х годах века Никлаусом Виртом (Швейцария). Своё название этот язык получил в честь французского учёного Блеза Паскаля, известного не только своими достижениями в математике, физике и философии, но и созданием первой в мире механической машины, выполнявшей сложение двух чисел.Язык Паскаль считается универсальным языком программирования, так как он может применяться для записи алгоритмов решения самых разных задач (вычислительных, обработки текстов, построения графических изображений, поиска информации и т.д.).

Он поддерживает процедурный стиль программирования, в соответствии с которым программа представляет собой последовательность операторов, задающих те или иные действия.

4,8(46 оценок)

Ответ:

Элайза5

24.03.2023

Здесь нужно использовать вс типизированный файл и, соответственно, вторую файловую переменную (fr2).
Сделать это можно так:
while not eof(fr) and (kol=0) do
begin
read(fr, Marshrut);
if (Marshrut.NK.N <> '11')
then write(fr2,Marshrut)
else begin inc(kol); y:=Marshrut; end;
end;
if not eof(fr) then
begin
read(fr, Marshrut);
write(fr2,Marshrut);
end;
if (kol=1) then write(fr2,y);
Дальше нужно просто переписать оставшиеся записи из первого файла во второй. Затем оба файла закрыть, первый файл удалить, а второй переименовать (т.е. назвать его так, как назывался первый файл).

Попробуйте ещё вот такой вариант:
(здесь k1 и k2 - целые, а y - типа )
if (Marshrut.NK.N = '11') then
begin
writeln('... ');
inc(kol);
y:=Marshrut;
k1:=FilePos(fr)-1;
k2:=FilePos(fr);
if not eof(fr) then
begin
read(fr, Marshrut);
seek (fr, k1);
write(fr, Marshrut);
seek (fr, k2);
write (fr, y);
end;

end;

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

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

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

01.07.2020

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

Образование-и-коммуникации

09.03.2021

Как титровать: правила и методы...

Кулинария-и-гостеприимство

23.04.2021

Как размораживать рыбу: советы от профессионалов...

Дом-и-сад