Var a: integer;
begin
//пред условие
read(a);
while a <> 0 do
begin
writeln('*');
read(a);
end;
end.
=====================
var a: integer;
begin
//пост условие
repeat
writeln('*');
read(a);
until a=0
end.
V-IV тысячелетие до н.э. Первые следы иероглифического письма в Древнем Египте
II-I тысячелетие до н.э. Появление алфавитного письма в Финикии
II век н.э. Изобретение технологии изготовления бумаги в Китае
Середина XV в. Начало книгопечатания в Европе
Середина XVI в. Начало книгопечатания в России
1839 г. Изобретение фотографии
70-е гг. XIX в. Первая запись звука с помощью фонографа
1895 г. Демонстрация первого кинофильма
20-е гг. XX в. Изобретение магнитофона
60-е гг. XX в. Появление первых жестких дисков для компьютеров
<span>80-е гг. XX в. Появление первых лазерных дисков </span>
<span>Разрешения глубина
|4| |8| |16| |24|
_________________________________________
640х480 |150| |300| |600| |901.4|
800х600 |234.4| |468.8| |937.5| |1406.3|
1024х768 |384| |768| |1536| |2304|
1280х1024 </span> |640| |1280| |2560| |3840|
Я искал размер изображения, в Кбайтах. А то не написано, что надо вписать в таблицу
<h3>PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
ReadSeqInteger('Вводите:', 15)
.Where(t -> t.InRange(1, 14)).Sum.Println
end.
<?
for($i=0;$i<20;$i++)
{
$number = rand(0,10000);
$a[$i] = $number;
}
$max = -1;
for($i=0;$i<20;$i++)
{
if ($a[$i] / 7 !=0 && $a[$i] >99 && $a[$i] <1000 && $a[$i] > $max)
$max = $a[$i];
}
echo "Все элементы:<br>";
for($i=0;$i<20;$i++)
{
echo "$a[$i]<br>";
}
if ($max!=-1)
{
echo "Нужный: $max";
}
else
{
echo "Не найден";
}
?>
