Задать вопрос!

Задать вопрос!

Все категории

4 года назад

7

ПОМОГИТЕ ПОЖАЛУЙСТА ,В PASCAL Составить программу вычисления количества первых четных чисел в сумме дающих 56

Информатика

1 ответ:

KsushaT4 года назад

0 0

Var n,i,k:integer;
beginwhile n<56 do begini:=i+1;if i mod 2 = 0 then begin n:= n + i;k:=k+1;end;end;write(k);end.

Читайте также

Для x, изменяющегося в интервале от x0 до xk с шагом h, вычислить значения бесконечной суммы S(x) с точностью =0.00001 и функци

vinkaz16

Решение задачи - в прилагаемом файле

0 0

4 года назад

1. Вводится 10 чисел. Найти сумму положительных двузначных чисел. 2. Вводится текст. Конец ввода точка. Найти количество букв "Г

Кристина орел [14]

var a,s:integer;
begin
s:=0;
writeln('Введите числа');
repeat
readln(a);
if (a>9)and(a<99) then
s:=s+a;
until a=0;
writeln(s);
end.

0 0

2 года назад

По введенной температуре вывести сообщение ''на улице холодно,разденься'' и ''на улице холодно ,оденься теплей''.помогите пожалу

Тимофей3

Вот пример на C#:
int temp;
temp = Convert.ToInt32(Console.ReadLine());
if (temp <= 0)
{
Console.WriteLine("На улице холодно, оденься теплей");
}
if (temp > 0 && temp < 25)
{
Console.WriteLine("На илице прохрадно");
}
if (temp > 25)
{
Console.WriteLine("На улице тепло");
}

0 0

3 года назад

Маша плавает в бассейне, который представляет собой прямоугольник n на m метров. Помогите Маше определить какое минимальное расс

Кирилл Гриценко

Var n,m,x,y,min:integer;
begin
write('n, m:');
readln(n,m);
write('x, y:');
readln(x,y);
if x<n-x then min:=x else min:=n-x;
if y<min then min:=y;
if m-y<min then min:=m-y;
writeln('min = ',min);
end.

Пример:
<span>n, m:
10 25
x, y:
4 22
min = 3</span>

0 0

4 года назад

Напишите пожалуйста ответы :) фото внизу.

Надежда09

1) F
2) T
3) T
4) T
5) F
6) T

0 0

3 года назад