Разумеется. Человек-носитель информации.Мозг запоминает всякие разные моменты за всю жизнь,да и он намного лучше всякой там флешки
За 5 баллов в следующий раз никто программу не напишет вам
var mo,tu,we,th,fr,sa,su,a: ShortInt;
var b: Real;
Begin
Write('Температура воздуха в Понедельник: ');
Readln(mo);
Write('Температура воздуха во Вторник: ');
Readln(tu);
Write('Температура воздуха в Среду: ');
Read(we);
Write('Температура воздуха в Четверг: ');
Readln(th);
Write('Температура воздуха в Пятницу: ');
Readln(fr);
Write('Температура воздуха в Субботу: ');
Readln(sa);
Write('Температура воздуха в Воскресенье: ');
Readln(su);
a:=mo+tu+we+th+fr+sa+su;
b:=a/7;
Write('Средняя температура воздуха: ',b:0:2,' градусов.');
End.
щетая краску бесконечной
опустить кисть - оп
поднять кисть - по
покрасить жёлтым - пж
покрасить красным - пк
1.оп; 2.пж; 3.по; 4.вправо; 5.оп 6.пк 7.по 8.вправо и т.д весь рисунок
// F#
let rec getNumberFromConsole _ =
let str = System.Console.ReadLine()
let mutable number = 0
if System.Int32.TryParse(str, &number)
then number
else getNumberFromConsole null
let rec getCommonNumber number1 number2 commonNumber multiplier =
if number1 > 0 && number2 > 0
then getCommonNumber (number1 / 10) (number2 / 10) (commonNumber + (number1 % 10) * 10 * multiplier + (number2 % 10) * multiplier) (multiplier * 100)
else commonNumber
[<EntryPoint>]
let main argv =
let number1 = getNumberFromConsole null
let number2 = getNumberFromConsole null
let result = getCommonNumber number1 number2 0 1
System.Console.WriteLine result
System.Console.ReadKey true |> ignore
0
<span>
</span>
Program gt;
var a:array[1..1000]of integer;
n,r,p,s,i:integer;
begin
read(N);
p:=1;s:=0;
for i:=1 to n do
begin
read(a[i]);
if(i mod 2=1)then p:=p*a[i] else s:=s+a[i];
end;
r:=p-s;
writeln(r);
end.