Информатика
Информатика, 14.10.2019 14:30, подр1

Вопрос/Задача:

Вариант № 2 1)подсчитать сумму квадратов всех отрицательных и четных чисел из 10 вводимых. 2) даны натуральные числа от 35 до 87. найти и напечатать те из них, которые при делении на 7 остаток 1, 2 или 5. 3)дано целое число а и натуральное (целое неотрицательное) число n. вычислить а в степени n, используя в программе лишь операцию умножения. 4)введите последовательность из n целых чисел. найти наибольшее из всех отрицательных чисел. вывести его значение и порядковый номер. 5)вычислите: 99-97+95-93+91-89++7-5+3-1. 6)доказать (путем перебора возможных значений), что для любых величин а, в, с типа boolean следующая пара логических выражений имеет одинаковые значения (эквивалентны): a or (b and c) и (a or b) and (a or c).

Ответы на вопрос

Ответ
Ответ разместил: Гость

var a: integer; c1, c2, c3, c4: integer;

begin for a : = 1000 to 9999 do begin c1 : = a div 1000; c2 : = (a div 100) mod 10; c3 : = (a div 10) mod 10; c4 : = a mod 10; if (c1 < > c2) and (c1 < > c3) and (c1 < > c4) and (c2 < > c3) and (c2 < > c4) and (c3 < > c4) then writeln(a); end; end.

Ответ
Ответ разместил: Гость

в двоичной 1000001

в восмеричной 101

в шеснадцатеричной 41

Ответ
Ответ разместил: Гость

program xxx;

var k, d, n : integer;

          pr : boolean;

begin

  writeln('введите число k=');

  readln(k);

  d: =2;

  n: = k div 2;

  pr: =false;

  while (d< =n) and not(pr) do

      if k mod d = o then pr: =true else d: =d+1;

  if pr then writeln (k, '- число не простое') else writeln (k, '- число простое');

    readln

end.

 

Ответ
Ответ разместил: Бригман

в паскале

1) program one;

uses crt; var a: array [1..10] of integer; x: real; i: integer; beginclrscr; x: =0; for i: =1 to 10 doreadln(a[i]); for i: =1 to 10 dobeginif (a[i]< 0) or (a[i] mod 2=0) thenx: =x+sqr(a[i]); end; writeln; write(x); end.

2)

program two; uses crt; var a: array [1..52] of integer; x,i: integer; beginclrscr; x: =34; for i: =1 to 52 dobegina[i]: =1+x; x: =x+1; if (a[i] mod 7 =1)or (a[i] mod 7 =2) or (a[i] mod 7 =5)then writeln(a[i]); end; end.

3)

program three; uses crt; var n,x: integer; a,y: real; beginclrscr; readln(a,n); for x: =1 to n doy: =x*a; writeln(y); end.

4)

program four; uses crt; var a: array [1..100] of integer; n,i,max,x: integer; begin clrscr; writeln('vvedite kol-vo elementov'); readln(n); writeln('vvedite elementy'); for i: =1 to n do read(a[i]); for i: =1 to n do begin max: =a[1]; if (a[i] < 0) and (a[i]> a[x]) then max: =a[i]; x: =i; end; writeln ('naib',max,'nomer',x); end.

5)

program abc; uses crt; var s,a,b: integer; beginclrscr; s: =0; a: =1; b: =3; while a< 98 dobeginwhile b< 100 dobegins: =s+b-a; a: =a+4; b: =b+4; end; end; writeln(s); end.

Похожие вопросы

Вопросов на сайте: