часть С из ЕГЭ

@Sk8erBoy · Регистрация: 22.03.2010

Author24 — интернет-сервис помощи студентам

1. Составить программу, которая вводит с клавиатуры одно целое число a, затем тройку целых чисел b1,b2,b3 и выводит на экран количество чисел в тройке, равных числу a. Ничего, кроме подсчитанного количества, программа выводить не должна; каждое число должно вводиться отдельной командой «ввод».

2.Составить программу, которая вводит с клавиатуры одно двухзначное натуральное чётное число n (10<=n<=98) и выводит на экран значение следующей суммы:

1^3 + 2 ^3 − 3 ^3 + 4 ^3 + 5^3 − 6 ^3 + 7^3 + 8^3 − ... + ( 3n − 2 ) ^3 + ( 3n − 1 ) ^3 − ( 3n )^3

Если введенное число не является двухзначным или не является чётным, программа должна вывести на экран число 0.

3.Составить программу, которая задает массив А целых чисел из 10 элементов, вводит значения элементов массива с клавиатуры (каждый элемент – отдельной командой «ввод»), подсчитывает и выводит на экран количество элементов (среди элементов от второго до десятого), больших предыдущего, то есть, элементов A[i], для которых A[i]>A[i-1]. Ничего, кроме подсчитанного количества, программа выводить не должна. При использовании системы Free Pascal для представления целых чисел используйте тип LongInt.

@Puporev · 29.11.2010, 12:34

1.

Pascal

uses crt;
var a,b1,b2,b3,k:integer;
begin
write('Введите целое число a=');
readln(a);
k:=0;
writeln('Введите 3 целых числа для сравнения');
write('b1=');readln(b1);
if b1=a then k:=k+1;
write('b2=');readln(b2);
if b2=a then k:=k+1;
write('b3=');readln(b3);
if b3=a then k:=k+1;
write(k);
end.

Если бы не дурацкий АВС, то все было бы проще

Pascal

uses crt;
var a,b1,b2,b3:integer;
begin
clrscr;
write('Введите целое число a=');
readln(a);
writeln('Введите 3 целых числа для сравнения');
write('b1=');readln(b1);
write('b2=');readln(b2);
write('b3=');readln(b3);
write(ord(a=b1)+ord(a=b2)+ord(a=b3));//вот это АВС не понимает...
readln
end.

Добавлено через 12 минут
2.

Pascal

uses crt;
var n,i,z,s:integer;
begin
write('Введите двухзначное четное число n=');
readln(n);
if not (n in [1..98])or(n mod 2<>0) then write('0')
else
 begin
  s:=1;
  z:=1;
  for i:=2 to 3*n do
   begin
    s:=s+z*i*i*i;
    z:=-z;
   end;
  write(s);
 end;
end.

Добавлено через 6 минут
3.

Pascal

uses crt;
const n=10;
var a:array[1..n] of integer;
    i,k:integer;
begin
writeln('Введите ',n,' элементов массива-целых чисел');
k:=0;
for i:=1 to n do
 begin
  write('a[',i,']=');
  read(a[i]);
  if(i>1)and(a[i]>a[i-1]) then k:=k+1;
 end;
write(k);
end.

@Sk8erBoy 2 / 2 / 0 Регистрация: 22.03.2010 Сообщений: 41
		1
	часть С из ЕГЭ 29.11.2010, 11:43. Показов 1968. Ответов 1 Метки нет (Все метки) 1. Составить программу, которая вводит с клавиатуры одно целое число a, затем тройку целых чисел b1,b2,b3 и выводит на экран количество чисел в тройке, равных числу a. Ничего, кроме подсчитанного количества, программа выводить не должна; каждое число должно вводиться отдельной командой «ввод». 2.Составить программу, которая вводит с клавиатуры одно двухзначное натуральное чётное число n (10<=n<=98) и выводит на экран значение следующей суммы: 1^3 + 2 ^3 − 3 ^3 + 4 ^3 + 5^3 − 6 ^3 + 7^3 + 8^3 − ... + ( 3n − 2 ) ^3 + ( 3n − 1 ) ^3 − ( 3n )^3 Если введенное число не является двухзначным или не является чётным, программа должна вывести на экран число 0. 3.Составить программу, которая задает массив А целых чисел из 10 элементов, вводит значения элементов массива с клавиатуры (каждый элемент – отдельной командой «ввод»), подсчитывает и выводит на экран количество элементов (среди элементов от второго до десятого), больших предыдущего, то есть, элементов A[i], для которых A[i]>A[i-1]. Ничего, кроме подсчитанного количества, программа выводить не должна. При использовании системы Free Pascal для представления целых чисел используйте тип LongInt. 0

	29.11.2010, 12:34

часть С из ЕГЭ

Решение