Спробуй створити зображення квітки,використавши тільки літери та текстові символи, що є на клавіатурі

Знания

Информатика

1 ответ:

ZverOK [8]4 года назад

0 0

,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
__
( 0 )
_ | _
\ \ | / /
-----------------

Читайте также

Составить программу на языке pascal по след. условиям. Вывести с клавиатуры значения переменных a и в, вычислить и вывести на эк

Hufh [21]

// PascalABC.NET 3.3, сборка 1579 от 18.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
var (a,b):=ReadReal2('Введите a,b:');
var x:=(a*b+a)/b;
var y:=Sqrt((Exp(a+b)-Exp(a-b))/x)+Log10(x+a);
Writeln('y=',y)
end.

Пример
Введите a,b: 14.2 3.18
y=1375.95248723222

0 0

4 года назад

В программе abc pascal вычислить 1*2*3*4...*n, где n≤50 и вводится с клавиатуры, результат должен быть (вводимое число 4) - (выв

Nanahevanwe

https://pastebin.com/NRtwn023

0 0

4 года назад

Определить последнюю цифру заданного целого числа в pascal

MrAksel [222]

Var s,t:integer;
begin
write ('s='); readln(s);
if (s>-10) and (s<10)
then writeln ('Число однозначное')
else begin
t:=s mod 10;
writeln (abs(t));
end;
end.

0 0

4 года назад

Помогите срочно прошууккава

Хз8800553555

ну я тут тебе решила)) хе-хе..

0 0

4 года назад

Помогите пожалуйста!!! надо написать эту формулу в паскаль!!! v=pb^3 *ctg z/2 * tgL это числитель /8sin^2 * z/2 знаменатель

ИНН Сбербанка еди...

Var b,beta,l,br,lr,v:real;
begin
readln(b,l,beta);
br:=(beta*pi/180)/2;
lr:=(l*pi/180);
v:=(pi*b*b*b*(cos(br)/sin(br))*(sin(lr)/cos(lr)))/(8*sqr(sin(br)));
writeln(v:7:2);
end.

Пример:
24 26 37
78596.40

0 0

1 год назад