ответьте на вопросы кроссворда Вопросы по горизонтали:

3. То, что мы делаем в Visual Basic
5. Портативный вариант компьютера
7. Графический … для рисования и ввода рукописного текста
9. Сенсорная панель в ноутбуке
10. Универсальное устройство вывода информации
11. То же, что и дисковод
13. В сокращенном варианте – женское имя или устройство ввода информации
16. Специальное устройство для вывода сложных графических объектов
18. Шарик у этого «животного» находится сверху размером с мячик для гольфа
19. Устройство, используемое для оптического ввода изображений в компьютер
21. Блокбастер о новой компьютерной жизни
24. Они подразделяются на виды: матричные, струйные и лазерные
25. Гибкий магнитный диск
27. Специальная микросхема
29. Хвостатое устройство для компьютера.
30. Бывает арифметическое, логическое, строковое, нецензурное
31. Величина, зависимая от аргументов.
32. Компьютерный вредитель.
Вопросы по вертикали:

1. Язык программирования и известный математик.
2. Окно, в котором размещаются управляющие элементы.
4. Удаление, копирование, перемещение или вырезание.
6. Один из первых языков программирования
7. Одно из свойств информации (синоним слова доходчивость)
8. И процесс решения задачи, и кулинарный рецепт, и инструкция по пользованию стиральной машиной.
12. Мы его преобразуем из начального состояния в конечное.
14. Он выполняет последовательность действий.
15. Алгоритмическая структура, у которой много вариантов серий команд.
17. Алгоритм, записанный на «понятном» компьютеру языке.
19. Встречается и в информатике, а в биологии кошачье …
20. С ним тело цикла выполняется несколько раз.
22. Язык программирования, названный в честь сотрудницы Ч.Бэббиджа
23. В этой алгоритмической структуре серия команд выполняется в зависимости от истинности условия.
26. Последовательность команд и часть мыльной оперы.
28. Набор однотипных переменных, объединенных одним именем.

ответьте на вопросы кроссворда Вопросы по горизонтали:3. То, что мы делаем в Visual Basic5. Портатив

Показать ответ

Ответ:

esnira1098376

21.11.2021 04:57

//1
var A, B, i: integer;
begin
write('Введите A и B: '); readln(A, B);
for i := A to B do
    if ((i mod 3 = 0) and (i mod 10 = 3)) then writeln(i);
end.

//2
var
A, B, i, k: integer;
begin
write('Введите A и B: '); readln(A, B);
for i := A to B do
    if ((i > 99) and (i < 1000)) and ((i mod 10 = 9) and (i mod 100 <> 99)) then
    begin
      writeln(i);
      k := k + 1;
    end;
    if k = 0 then writeln('Таких чисел нет.');
end.

//3
var sum, i, n: integer;
begin
write('Введите количество предметов: '); readln(n);
for i := 1 to n do
begin
    readln(n);
    sum := sum + n;
end;
writeln('Общая масса = ', sum);
end.

//3 с другим циклом
var sum, n: integer;
begin
writeln('Введите 0 для завершения ввода.');
repeat
    readln(n);
    sum := sum + n;
until n = 0;
writeln('Общая масса = ', sum);
end.

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

Ответ:

stalker2000008

21.11.2021 04:57

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

№1

begin
var (a,b):=ReadInteger2('Границы интервала [A,B]:');
for var n:=a to b do
    if (Abs(n mod 10)=3) and (n mod 3=0) then Print(n)
end.

Пример
Границы интервала [A,B]: -50 142
-33 -3 3 33 63 93 123

№2

begin
var (a,b):=ReadInteger2('Границы интервала [A,B]:');
var k:=0;
for var n:=a to b do begin
    var m:=Abs(n);
    if (m mod 10=9) and (m mod 100<>99) and (m>=100)
        and (m<=999) then begin Print(n); k+=1 end
    end;
if k=0 then Writeln('Таких чисел нет')
end.

Примеры
Границы интервала [A,B]: -200 160
-189 -179 -169 -159 -149 -139 -129 -119 -109 109 119 129 139 149 159

Границы интервала [A,B]: 52 101
Таких чисел нет

№3

begin
var n:=ReadInteger('Введите количество предметов:');
var m:=0.0;
for var i:=1 to n do begin
    Write('Маcса предмета № ',i,': '); m+=ReadReal;
    end;
Writeln('Масса груза равна ',m)
end.

Пример
Введите количество предметов: 5
Маcса предмета № 1: 24.62
Маcса предмета № 2: 8.1
Маcса предмета № 3: 132
Маcса предмета № 4: 24.5
Маcса предмета № 5: 52.7
Масса груза равна 241.92

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

Популярные вопросы: Информатика