Как я понял , это оно !
https ://www. youtube.com/playlist?list=PLP6-uXxKE5Nuvajs8J9NeuoaPRGZwUlaG
Когда-то в стареньком городе была девочка она мечтала выросли и стать рукодельниц ей и она стала. она делала прекрасные творения и их продавала. И когда-то она поехала в другой город и там стала знаменитой.
Var x,y:integer;beginread(x,y);if x mod y = 0 then writeln('Без остатка')else writeln('С остатком');end.
#include <stdio.h>
#include <conio.h>
int main ()
{
int x;
printf ("Rost : ", x);
scanf( " %d" , &x);
if ( x > 180) printf ( " Vysokij ");
else printf( "Ne ochen' vysokij" );
return 0 ;
}
<em>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger('Количество элементов массива:');
var x:=ReadReal('Введите значение Х для заполнения массива:');
var a:=ArrFill(n,x); a.Println
end.
<u>Пример</u>
Количество элементов массива: 13
Введите значение Х для заполнения массива: 2.5
2.5 2.5 2.5 2.5 2.5 2.5 2.5 2.5 2.5 2.5 2.5 2.5 2.5
begin
var n:=ReadInteger('Количество элементов массива:');
var x:=ReadInteger('Введите начальное значение Х для заполнения массива:');
var a:=ArrGen(n,i->i+x); a.Println
end.
<u>Пример</u>
Количество элементов массива: 15
Введите начальное значение Х для заполнения массива: 8
8 9 10 11 12 13 14 15 16 17 18 19 20 21 22