50АлисА05
01.09.2022 03:10

Дос кызынын электрондық мекен-жайын және хат такырыбын көрсетіңіз?

2. Суреттегі файлды бекітуге арналған куралдын астын сызыңыз.

1. Амир осы хатты тапқан бу ма атауын жазыңыз.

Сабақта Сен бірнеше электрындык хатты жібердің және алдың. Алдағы уақытта
саган тағы да іскерлік және жеке сипаттағы хат жазуға тура келеді. Электрондық
поштанын жасырын этикеті бар. Электрондық поштаны жазудың 4 ережесін жазыңыз
1.
2.
3.
4.
Интернетте кауіпсіз жұмыс істеу тәсілдерінің бірі кұпия сөз пайдалану
Сенімді құпия сөздін төрт критерийін жазып, сенімді қупия сөздің бір үлгісін мысалга
келтіріңіз,
Сенімді купия сөздін критерийі
1
2
3
4
Сенімді құпия сөздің
Мысалы,
4 Интернет пайдаланушылары
браузер
ұсынатын
мүмкіндіктерді
пайдаланады, мысалы, тру тарихын карау, жүктеу және бетбелгі жасау Браузерді
баскару функциялары мен олардың сипаттамалары арасында сәйкестікті (сызыктармен
косьнып,орнатыңыз.

а) Кызметі
б) Браузер командалары​


Дос кызынын электрондық мекен-жайын және хат такырыбын көрсетіңіз?2. Суреттегі файлды бекітуге арнал

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
anastasiyabalk1
16.09.2022 20:21
//PascalABC.NET (версия 3.1, сборка 1196 от 09.03.2016)
begin
  for var i:=1 to 1000 do
    if i mod 7 =0 then print(i);
end.

Тестовое решение:
7 14 21 28 35 42 49 56 63 70 77 84 91 98 105 112 119 126 133 140 147 154 161 168 175 182 189 196 203 210 217 224 231 238 245 252 259 266 273 280 287 294 301 308 315 322 329 336 343 350 357 364 371 378 385 392 399 406 413 420 427 434 441 448 455 462 469 476 483 490 497 504 511 518 525 532 539 546 553 560 567 574 581 588 595 602 609 616 623 630 637 644 651 658 665 672 679 686 693 700 707 714 721 728 735 742 749 756 763 770 777 784 791 798 805 812 819 826 833 840 847 854 861 868 875 882 889 896 903 910 917 924 931 938 945 952 959 966 973 980 987 994
0,0(0 оценок)
Ответ:
vlada363
16.03.2020 21:38
Думаю нет большой разницы между процедурой и функцией, просто функция куда удобнее.
Для нахождения нода используется алгоритм Эвклида

//PascalABC.Net

function NOD(A, B: integer): integer;
begin
    while A <> B do
        if A > B then A := A - B else B := B - A;
    NOD := A;
end;

procedure pNOD(A, B: integer; var NOD: integer);
begin
    while A <> B do
        if A > B then A := A - B else B := B - A;
    NOD := A;
end;

begin
    var a: Array of integer := (16, 32, 40, 64, 80, 128);
    var n := a[low(a)];
    for var i := low(a) to high(a) do
        pNOD(n, a[i], n);
   
    Writeln(n);
end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота