@php (логику можно интерпретировать на любой язык, просто не указано какой язык программы)
$day = 1;$start = 10;
while ($start < 18){ $start = $start + 2; $day++;}echo $day;
<em>// PascalABC.NET 3.3, сборка 1579 от 18.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrGen(7,3,t->3*t); a.Println
end.
<u>Результат</u>
3 9 27 81 243 729 2187
Var
s:string;
max,min:char;
begin
write('Введите число: '); readln(s);
max:=s[1]; min:=s[1];
for var i:=2 to s.Length do begin
if min>s[i] then min:=s[i];
if max<s[i] then max:=s[i];
end;
writeln('max = ',max);
writeln('min = ',min);
end.
Поле "владелец" - тип строковый
поле "модель" - тип строковый
поле "номер" - тип строковый
поле "дата регистр" - тип дата
главный ключ - поле "номер" - т.к. оно уникально (номера не могут повторяться)
Да, конечно.
Итак, вот, что нужно добавить в блок-схеме(нарисовать не получится)
Итак, Овал(пустой), стрелочка вниз, паралеллограмм( пишешь r, S, Pi=3.14), Стрелочка вниз, прямоугольник (внутри S=Pi*r*r), стрелка вниз, параллелограмм(S), стрелочка вниз, пустой овал.
Вот программа:
Program KRUG;
var:r, S: real;
const Pi=3.14;
begin
writeln('Введите радиус круга');
read(r);
S:=Pi*sqr(r);
writeln('S=', S);
end.