№1
var vol, a, b, c: real;
beginwrite('Введите сторону а: ');
readln(a);
write('Введите сторону b: ');
readln(b);
write('Введите сторону c: ');
readln(c);
vol := a * b * c;
writeln('Объем прямоугольного параллелепипеда равен ', vol);
<span>end.
№2
const a = 3;
const h = 7;
var S: real;
begin
S := 1 / 2 * a * h;
writeln('Площадь треугольника равна ', S);
<span>end.
№3
var s: string;
begin
s := 'Чему равно 10 : 2?';
writeln(s);
readln();
<span>end.</span></span></span>
var a,b: real;
begin
write('Введите число a: ');
readln(a);
write('Введите число b: ');
readln(b);
if (a>0) then writeln('Число a является положительным') else writeln('Число a является отрицательным');
if (b>0) then writeln('Число b является положительным') else writeln('Число b является отрицательным');
readln;
end.
А вектор + а
Отрицание на отрицание дает положительный ответ
// F#
[<EntryPoint>]
let main argv =
let elements =
System.Console.ReadLine().Split(' ')
|> Seq.map (fun x -> System.Int32.Parse x)
|> Seq.mapi (fun i x -> (x, i))
|> Seq.where (fun (x, i) -> x % 2 = 0)
if elements |> Seq.length > 0
then System.Console.WriteLine("{0} {1}", elements |> Seq.last |> fst, (elements |> Seq.last |> snd) + 1)
else System.Console.WriteLine("No results")
System.Console.ReadKey true |> ignore
0
<span>
</span>
Это что, надо в виде программы?
А так: алгометрическая последовательность:
а1=10 q=1(10% от 100)
20=10+d-1
d=11 - через 12 дней(так как на 11-ый он пробежит 20 км)
б) Это сумма всех членов ал. посл.
s=(2*a1+d(n-1))/2 *n или s=((a1+an)*n)/2
значит 100>((10+n)*n)/2
<span>остальное посчитай пожалуйста сам(а), так как тут трудно писать квадратное уравнение, а если это надо в программу, то введи эту формулу туда и всё.(Хотя какая может быть программа, если всё изначально дано?)</span>