Var x,y:real;
begin
write('x = '); readln(x);
if x>12
then y:=2*x+15
else if x=12 then y:=54.4 else y:=-7.8;
writeln('y = ',y);
end.
Пример:
x = 10
y = -7.8
А)пятачок
б)?сова по идеи
в)сам справишся я твоего имени не знаю
г)кролик
Var
max, i : integer;
a : array [1..20] of integer;
begin
max := -1;
for i := 1 to 20 do read (a[i]);
for i := 1 to 20 do
if (a[i] < 1000) and (a[i] > 99) and (a[i] mod 4 = 0) and (a[i] > max) then
max := a[i];
if max > -1 then write (max) else write ('Nety');
end.
Еще есть продолжения! сейчас отправлю
Целевой яп - C#. Реализован ввод с клавиатуры и проверка на корретность ввода. Пример работы программы приведен на рисунке 1. Код ниже.
using System;
namespace FindPairs
{
class Program
{
static void Main(string[] args)
{
Console.Write("Введите трехзначное число: ");
string input = Console.ReadLine();
int number = 0;
if(input.Length != 3 || !int.TryParse(input, out number))
{
Console.WriteLine("Неверный ввод. Экстренное завершение!");
return;
}
Console.WriteLine("Число, полученное при перестановке первой и второй цифры: {1}{0}{2}", input[0],input[1],input[2]);
}
}
}