Контрольная работа по информатике 7 класс, решите
пример1. дано число х определить, является ли оно четным
program name ;
uses crt;
var
x: integer;
begin
clrscr;
write ('x'); read(x)
if x mod 2=0 then writekn ('да') else writeln ('нет'
readkey;
end.
формулы для нахождения суммы и кол-ва: s=0, k=0, p= 1, s=s+a, k=k+1, p=p*a
пример2. дано три числа. найти сумму чистел кратных 3
programe name
uses crt;
var
a,b,c, s; integer;
begin
clrsccr;
write ('b='): read (b)
write ('c='); read(c)
write ('a=') read(a)
s: =0
if a mod 3=0 then s: =s+a
if a mod 3=0 then s: =s+b
if a mod 3=0 then s: =s+s
writeln('s=', s)
readkey;
end
:
1 дано три числа найти
а)произведение чисел меньше 15ти
б)кол-во чисел кратных 7ми
в) сумму чисел оканчивающихся на 9
2. написать программу нахождения площади трапеции
3. определить является ли число кратным 5ти
double a, a1;
ConsoleKeyInfo keyInfo;
do
{
Console.Write("Введите число: ");
a = Convert.ToDouble(Console.ReadLine());
a1 = Math.Pow(a, 2);
Console.WriteLine("Квадрат числа "+ a + " = " + a1);
a1 = Math.Pow(a, 3);
Console.WriteLine("Куб числа " + a + " = " + a1 + "\n");
Console.WriteLine("Если хотите повторить программу нажмите F");
Console.WriteLine("Если хотите завершить программу нажмите любую другую кнопку\n");
keyInfo = Console.ReadKey(true);
}
while (keyInfo.Key == ConsoleKey.F);
double a, b, c, s;
ConsoleKeyInfo keyInfo;
do
{
Console.Write("Введите первое число: ");
a = Convert.ToDouble(Console.ReadLine());
Console.Write("Введите второе число: ");
b = Convert.ToDouble(Console.ReadLine());
Console.Write("Введите третье число: ");
c = Convert.ToDouble(Console.ReadLine());
a *= 2;
Console.WriteLine("\n"+a);
b -= 3;
Console.WriteLine(b);
c = Math.Pow(c,2);
Console.WriteLine(c+"\n");
s = a + b + c;
Console.WriteLine("Сумма: " + s+"\n");
Console.WriteLine("Если хотите повторить программу нажмите F");
Console.WriteLine("Если хотите завершить программу нажмите любую другую кнопку\n");
keyInfo = Console.ReadKey(true);
}
while (keyInfo.Key == ConsoleKey.F);