Создать структуру корабль, имеющую поля типа int, double, char, bool, статический строковый массив (из символов) и статический массив числового типа. придумать подходящие по смыслу имена полей и их типы. 2 создайте переменную типа вашей структуры и проинициализируйте ее явно инициализирующей строкой. создайте переменную типа вашей структуры и в коде присвойте значения ее полям, обращаясь к каждому из них отдельно. распечатайте значения полей переменных через « | ». 3 создайте переменную типа вашей структуры и обеспечьте инициализацию ее полей значениями, которые введет пользователь с клавиатуры (в ответ на соответствующие фразы-приглашения вашей программы). распечатайте значения полей переменной через « | ». 4 создайте переменную типа вашей структуры и указатель на нее. проинициализируйте поля переменной, обращаясь к ним только через указатель. распечатайте значения полей переменой, обращаясь к ним через указатель на переменную. помните, что при работе с указателем на структуру, обращение к ее полям будет не через «точку» ( переменная.поле ), а через «тире и знак «больше»» ( указатель–> поле ). 5 создайте переменную типа вашей структуры и ссылку на нее. проинициализируйте поля переменной, обращаясь к ним только через ссылку. распечатайте значения полей переменой, обращаясь к ним через

Нажмите на рекламу ниже и сразу увидите ответ

↓

Популярные вопросы:

Vitalik1994

30.12.2021 04:08

Предложи, в каком формате лучше сохранить графические файлы при различных ситуаций, если тебе придется: а) сохранять изображения в мобильном телефоне; б) размещать...

Floren255

14.02.2021 01:00

Какое устройство обычно используют парами...

Ilona286

26.11.2022 10:03

Бим загадывает число. бум просит его выполнить с ним действия по алгоритму и всегда отгадывает результат. почему бому удается этот фокус? выполни действия для трех...

stephanzakharop010v8

21.05.2022 23:05

Bing, ms word.что не является поисковой системой...

vlad97vb

31.05.2022 11:25

Для передачи друг другу коротких зашифрованных сообщений Дима и Саша договорились использовать узелковое письмо, похожее на то, каким пользовались древние инки....

elya144

22.05.2023 22:54

2. переведите числа из 10 сс: а) 42310→ 5 сс; б) 16310→ 2 сс; в) 24110→8 сс....

alenasen12345

22.05.2023 22:54

Втумбочке лежат 5 белых и 7 черных носков. какое количество информации несет сообщение о том, что вытащили белый носок?...

Stan0

06.08.2022 05:36

Составь и запиши программу на языке Паскаль, которая, если введенное число отрицательное и кратно 4, меняет его на противоположное. Дано целое двухзначное число....

RassiaScream

25.05.2020 13:12

Составьте схему трофических связей живых организов экосистемы леса....

Am0nt

14.10.2020 03:48

Напишите области применения алюминия и цинка...

Ответ:

zakharakobinetowxuit

19.02.2022 06:55

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

function IsPrime(m:integer):=(Range(2,Round(sqrt(m))).All(x->m mod x<>0));

begin
var n:=ReadInteger('n=');
Range(1,n).Where(i->IsPrime(i)).Println
end.

Пример
n= 318
1 2 3 5 7 11 13 17 19 23 29 31 37 41 43 47 53 59 61 67 71 73 79 83 89 97 101 103 107 109 113 127 131 137 139 149 151 157 163 167 173 179 181 191 193 197 199 211 223 227 229 233 239 241 251 257 263 269 271 277 281 283 293 307 311 313 317

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

function NOD(m,n:integer):integer;
begin
while n>0 do (m,n):=(n,m mod n);
Result:=m
end;

begin
var a,b:integer;
Write('Введите пару натуральных чисел:'); Read(a,b);
Writeln('НОД=',NOD(a,b))
end.

Пример
Введите пару натуральных чисел:7955 5661
НОД=37

Синформатикой, . 1. напишите программу, которая выводит на экран все простые числа в диапазоне от 1

Синформатикой, . 1. напишите программу, которая выводит на экран все простые числа в диапазоне от 1

0,0(0 оценок)

Ответ:

valeraKRUT05

19.02.2022 06:55

Задача 1:

var a,r: double;

begin

writeln('Введите сторону квадрата a');

readln(a);

writeln('Введите радиус круга r');

readln(r);

writeln('Площадь фигуры: ',a*a-Pi*r*r);

end.

Задача 2:

var a, b, c, D, x1, x2: real;

begin

writeln('Введите A, B, C');

readln(a,b,c);

D:=b*b-4*a*c;

if D>=0 then

begin

if (sqrt(D)=0) then

begin

x1:=-b/(2*a);

write('Один корень ',x1:0:2);

end

else

begin

x1:=(-b-sqrt(D))/(2*a);

x2:=(-b+sqrt(D))/(2*a);

write('Первый корень: ',x1:0:2,' Второй корень: ',x2:0:2);

end

else write('Корней нет');

end.

0,0(0 оценок)

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку